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INTRODUCTION 

MACRO FIO-DEC is based on MACRO III, an assembly program for the TX-O computer at 
the Massachusetts Institute of Technology. The TX-O was built at Lincoln Laboratory and 
is now on loan to the Electrical Engineering Department at MIT. Since the PDP-1 is very 
similar in its logical design to the TX-O, it was thought worthwhile to prepare a version of 
the MACRO assembly program for use on the PDP-1 . The program was written in MACRO 
language, and originally was assembled on the TX-O. An elementary version of DDT 
(see DECUS distribution MIT-2) was also prepared and was used in debugging MACRO. The 
present version incorporates a number of improvements over the original, and has been in 
use in its present form for several months at MIT. 

The program is a two-pass assembler, with a macro-instruction facility which generates 
words from encoded stored model statements. With one minor exception, it is a linear scan 
character processor, examining each character once in order on each pass. In order to 
reduce wear and tear on input-output equipment, both input and output are buffered. The 
tape reading routine has an optional parity check, but except for this, and stripping the 
parity bits, the tape handling routines are essentially transparent to the rest of the program . 
We shall begin our discussion with an investigation of these routines. 



SECTION 1 

INPUT TAPE HANDLER 

Each rime the main program requires a character, rch is called. Characters are stored three 
to a word, and fwd is a counter which indicates which of the three characters is to be read 
out next. When a word is exhausted, the next is picked up at rc8, and saved in fwb. 
Normally, control drops through the tests immediately following, fwd is reset to 3, and the 
next character is stripped off at rcl . The character is saved in t, rep, and the AC. The 
subroutine then returns to the main program. 

When the last word is fetched, special treatment is necessary, for as will be seen later, it 
may not have three characters in it. The precise number is to be found in nfc, from which 
fwd is set when the program reaches rc3. 

The next time through rc8, it will be found that no more words remain in the buffer, and 
control passes to rfb. The buffer indices are reset, and the program commences reading. 
Tape will be read until a stop code is encountered, a carriage return is encountered during 
filling the last 24 words of buffer, or a parity error is found. Deletes are filtered out, but 
all other characters are stored. Sense switch 6 is examined to see if parity is to be checked, 
and if it is off, parity is checked. The character is planted in a rotate instruction, which 
rotates according to the number of ones in the instruction. Thus, executing this on a word 
of alternate ones and zeroes generates a parity. If an error is found, a diagnostic is printed, 
and the character as read is displayed in the IO. The type symbol subroutine (tys) is used 
for typing. Continue causes the character to be accepted by going to rfa. Start ignores 
the character by returning to the read instruction (rf 2) . Note that the action on Start, if 
not otherwise conditioned by the test word, is determined by sov. This will be dealt with in 
detail later. 

The characters are assembled into words directly into storage. The previous contents of the 
buffer words are lost by being shifted off the end of the word at rf3. Next we check for 
whether the remaining stop conditions are met. Stop codes go to rf6, where tha last word has 
its characters correctly aligned for the readout routine. The end checks are set up, and 
control returned to rc8. If the buffer is within 24 (octal) words of being full, rf4 
is set to exit to rf6 on the next carriage return. Since, in the usual MACRO-language 



typescript, the next character after a carriage return is almost always an ignored tab, no great 
harm will be done if the reader cannot stop before the next character. 

INITIALIZATION AND TITLE SEQUENCE 

From ps2 to pte is initialization for starting or continuing a pass. Complete discussion of the 
initialization will mostly be confined to a general description, with specifics being related 
at the initialized routines. 

The initial entry to the program is at ps5. The program stops at psl-1, and on Continue goes 
through psl, which sets for Pass 1; npl, which sets up to begin a pass; and through np2, which 
sets up to begin processing a single tape. At np2 is a sequence which detects whether there 
is a tape in the reader and the reader is turned on. An rpa is given without a wait, and if no 
character has appeared in the IO within about 80 milliseconds, the reader is assumed to be not 
ready and the program stops. When the reader is ready, the tape reading routine is initialized 
such that the buffer will appear completely empty, and tape will be read as soon as rch is 
called. 

At pte, flag 5 is off iff (if and only if) a title is to be punched. If it is off, some blank tape 
is fed before anything else is done. Next the characters comprising the title are read. Lead- 
ing stop codes are ignored; and also leading spaces, to prevent blank tape from being consider- 
ed as spaces in the event that parity is not being checked. Leading carriage returns are also 
ignored. The first non-ignored character sets flag 6, so that spaces will no longer be ignored; 
and if the character is a middle dot, flag 5 is set to discontinue punching the title. The 
character is typed with completion requested but no in-out wait, and if the character is to be 
punched, this is done while the typewriter is typing. It has been found empirically that six 
lines can be punched during typing one character with negligible likelihood of the typewriter 
completion appearing before punching is done. 

The carriage return following the title is detected at pt5, and when it has been found, pass 1 
or pass 2 is typed out, followed by punching the input routine, if this is necessary. The 
input routine on the MACRO tape, as read into storage, is used as data. Some more 
tape is fed, and control passes to rst. 



RESET SEQUENCE 

The terminating character switches determine MACRO'S treatment of the terminating characters 
tab, comma, equals, slash, and left parenthesis. The macro-instruction definition indicator 
mii determines the setting of these switches. If mii is on (-0), these switches are set to 
appropriate parts of the macro-instruction definition routine. 

Indicators for each word are reset at rsk and rsw. At rsk, the left and right parenthesis switch- 
es are reset, and the dummy-symbol pushdown counter prs is set to 0. At rsw, the accumulated 
word value wrd is zeroed; the polysyllabic word indicator syl is turned off by clearing flag 5; 
the temporary storage nsm, asa, and amn is cleared (these are used by the slash routine for 
determining the symbolic location after a location assignment); the defined indicator def is 
turned on; and the dummy symbol indicator, flag 6, which is used by the macro definition 
routines, is turned off. At sp, the indicators for each syllable are cleared: the sign of the 
next syllable is set positive, the symbol letter indicator is cleared, and so are the overbar 
indicator, the syllable value num, the symbol storage sym, and the character counter chc. 
Control then falls into the main character processing loop, which begins at r. 

SYMBOL GENERATOR 

There are three kinds of symbols which are developed in the main character loop: integers, 
pseudo-instructions, and "symbols, " which term we shall reserve for sequences of one, two, 
or three letters or numerals containing at least one letter. Letters and numerals are dispatched 
on at r and go to 1 and n respectively. Numerals are combined into num at n. The current 
radix control atnl multiplies the preceding digits by eight or ten for octal or decimal. So 
that 177711 (octal) yields minus rather than plus zero, a check at n3 does a special treatment 
of zero. Letters turn on the letter indicator let and also letters-in-upper liu if in upper case. 
Letter and number flow combines at In where the character count chc is stepped and the first 
three characters are combined into a symbol sym at 12. If a fourth character is encountered, 
let is checked; if a letter has occurred, it is a pseudo-instruction, and otherwise it is merely 
a number of four or more digits. Pseudo-instructions cause the P-l name to be saved in api 
for error printing purposes, and reset various indicators preparatory to picking up possible 
arguments. Additional characters are read until a break character (space, plus, minus, tab, 
or carriage return) is encountered, which ends the pseudo-instruction name, and the second 
three characters are saved in syn. At the break character, control is transferred to search 
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for the pseudo-instruction name at spm. 

SYMBOL PROCESSOR 

Symbols are combined by addition or subtraction as indicated by plus or minus signs, which 
go to p and m on dispatching. All routines which are called at the end of a symbol go to evl, 
which evaluates any symbol and performs the indicated arithmetic. 

The symbol system is based on the idea that a symbol will be defined relatively infrequently, 
but will be used quite often. It is reasonable to spend a relatively long time defining a 
symbol if this will make it possible to evaluate it quickly. The symbol table is therefore kept 
sorted at all times, and a binary or logarithmic search is used to evaluate symbols. For those 
not familiar with the idea, the remainder of this paragraph is devoted to a discussion of the 
principle. Consider a dictionary, in which it is desired to locate a word, say pen. First 
look in the center of the book, and determine whether the word found there is before pen, 
after pen, or pen itself. If the word is before pen, which is likely to be the case, look next 
in the center of the back half of the book. Suppose the word found to be tree. Now pen is 
known to be before tree, so we next look in the center of the preceding quarter. The process 
is repeated, dividing the word list by two each time until the word is found. It is apparent 
that if there are two to the nth words, a maximum of n lookups are required, and the average 
number will be n-1 . 

To secure an alphabetic ordering of the symbol table, it is necessary to modify the codes of 
the letters so that the concise code is converted to alphabetic order. The easiest way to do 
this is by "inverting the zone bits," i.e., complementing the highest bit of each character if 
the next highest is a 1 . This is done at the permute zone bits subroutine per, which also 
complements the sign bit. The transformation is reciprocal, i.e., permuting a permuted 

cwmKn nn-nprmntoc It Tl-wc rrir*¥ ic i icon r\\/ tnp orrnr nnnt rnntino 

Returning to evl, we see the symbol permuted, followed by a check of the macro-instruction 
indicator mii. If it is on, control is transferred to wsp to check for dummy symbols. If it is 
off, let is checked; if it is on, a symbol table search is necessary, otherwise the number 
(integer) is combined into wrd. It is also combined into amn, which accumulates the numeric 
part, if any, of a word for determining the new symbolic location in the event of a location 
assignment. 



Location assignments are also dealt with at el, where the symbol, if any, to be used in a 
symbolic location is determined. There is a three state indicator nsm, which is initially + 0, 
and is set to + 1 a^ter the first symbol of a word, and to -1 after any other symbol , It is also 
set to - 1 in the event of a symbol preceded by a minus sign, for such a symbol cannot be the 
symbolic part of a symbolic location. Further discussion of this point will be postponed until 
a comp'ete investigation of location assignments. 

The logarithmic search begins at e2 There is a shift counter tl which constructs the repeated 
increments to the address in the symbol table. The table is stored from register 7750 down, 
with the symbols in even-numbered registers and values in the next higher odd-numbered 
registers. Register 7750 is called low and contains lac the lowest address in the symbol table* 
The first location examined is that contained in low, and hence the lowest entry in the table. 
Succeeding addresses are computed as necessary, but the contents thereof are not examined 
until it is determined that the address does in fact lie in the symbol table. The decision as to 
whether to go up or down is seen to involve the overflow indicator (initially cleared at 
e2+ 2). This is a consequence of the fact that the symbols can assume all possible arithmetic 
values. Here the reason for complementing the sign bit becomes apparent. The table is 
arranged in numerical order, with the most negative number, originally the smallest positive 
number, at the bottom, !t will be seen that if an overflow occurred, the sign of the result 
will be exactly the opposite of what it should be to move the search in the correct direction. 
Thus we do a skip on no overflow, and overflow causes a complement, Next we do a three 
way branch to move the search up, down, or exit on finding the symbol in the table. The 
remaining portion of the routine at eqt is related to variables and will be discussed later. 

It will be seen that the maximum size of the symbol table must be a power of 2, since the 
shift counter is halved at each iteration and the search must always move an integral number 
of register The maximum corresponding to the initial value of the shift counter will never 
be realized in practice, for the symbol table would first collide with the top of the macro- 
instruction o r constant table. The top of the latter tables is kept in register hih, and a 
collision results in an alarm of storage capacity exceeded, 

A'so in evl is a subroutine ed whose purpose is to frustrate the PDP circuitry that filters out 
minus zeroes on addition. Additions to wrd are done through this subroutine. This assures 
that when on expression such as \777776+]) appears in a source program, minus zero and 
no f plus ze r o wl M be *He result , 
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SECTION 2 

STORAGE WORDS 

The storage word termi nation routine places words in the punch buffer, counts the location 
counter and determines when punching should take place. Control is passed to the punch rou- 
tine on Pass 2 whenever the location gets to a multiple of 100. This results in convenient 
sized binary blocks. There is a subroutine sch which checks syl and chc to see whether any- 
thing occurred since the last tab, carriage return or other terminator; if something has, the 
next instruction is skipped; otherwise the terminator is redundant and is ignored, since the 
next instruction returns control to r. 

This routine is used as a subroutine by the macro-instruction processor and constant routine. 

LOCATION ASSIGNMENTS 

The location assignment character </> enters at b. If preceded by a word terminator, it de- 
notes the beginning of a comment, and control passes to itc to ignore characters until the 
next tab or carriage return. Otherwise, evl is called and the new location is set up. First 
the symbolic location is constructed according to the following rule: A symbolic location 
exists if the location can be expressed as symbol + number, where the number may be 0. In 
the event that the assignment is expressed as the sum of symbols, the old symbolic location, 
if any, is retained. If the assignment is purely numeric, asi is turned off (-0) and asm and 
ami are cleared, since asa and amn will contain zero. Otherwise, the alarm symbol indi- 



cator is left on (+0), and asm contains the symbolic part of the location, and ami the 
numeric part. 

If, on Pass 1, a location assignment contains an undefined symbol, the location is considered 
indefinite, which fact is denoted by a negative number in loc . If the location is definite, 
loc is set from wrd at bnp . The location is taken modulo machine size, while the sign bit is 
preserved to retain whether or not the location is definite. 

On Pass 2, an undefined symbol in a location assignment causes an alarm, but the location 
does not become indefinite, for the undefined symbol is simply ignored. If the assignment is 
defined, or on recovery from an alarm stop, wrd is taken modulo machine size and compared 
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with loc, If the two are identical, it is not necessary to start a new block, and the routine 
exits to bnp, if they are different, control passes to pun, with the new location saved in wrd 
while pun uses the old one to punch out the block. 

At pun, the location is compared with the block origin to determine whether there are any 
words in the punch buffer, if there are not, it exits at once to bnp to set up the next block. 
ft also exits if the punch indicator pun is off. If punching is to be done, the first and last ad- 
dress are punched, followed by the contents of the punch buffer, followed by a checksum 
which is the sum of all other words in the block. Register t is a counter which counts through 
the buffer, and the checksum is kept in ckl . Punching of each word is done by a subroutine 
pnb which displays the origin of each block in the AC as punching is done, enabling the oper- 
ator to observe the progress of the assembly. Five lines of blank tape are punched at the 
beginning of each block. 

After the block is completed, the new block origin is taken from wrd, where it was saved, 
and put into org, The punch buffer index ts is reset, and the routine normally exits to rnw . 

VARIABLES AND SYMBOL DEFINITION 

There are three basic ways to define symbols in MACRO: by parameter assignment, by ad- 
dress tag, and by variable definition. The appearance of a comma directs control to the 
address tag routine. If the location is indefinite, the routine exits at once; otherwise, evl is 
called, ff the word preceding the comma is defined, its value is compared with the location 
counter; if they differ, an error is flagged at mdt. The symbol field on the error printout 
contains the tag if the tag consisted of one symbol; otherwise sym is cleared before the error 
is called, After return, or if the definition was correct, the new symbolic location is 
determined, fn the event that the tag was polysyllabic, the old symbolic location is re- 
tained = 

Should the word preceding the comma be undefined, the routine exits at once if the tag was 
polysyllabic; otherwise the symbol is defined at vsm, and the new symbolic location is deter- 
mined as before , 

Parameter assignments go to the parameter assignment routine at the occurrence of the equal 
cinn Thg e >c ^r essi^n to the left of the e^ua! si^n must consist of a sinaie symbol which may 
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not bear an overbar , if these requirements are met, the symbol is saved in sen (which is also 
used by the macro-instnjetion processor), and the terminating character switches (bt for bar 
(slash) f qt for equal sign, ct for comma, tt for tab and carriage return) are set so that any ter- 
minator other than tab or cr causes an alarm, The routine then exits to mw to await the 
expression for the value. 

When the terminator occurs, the routine exits in the event nothing has appeared; and other- 
wise calls evl . if it is well defined, control passes to q2 which saves the value, and then sets 
up indicators so that evl may be used to determine whether the symbol on the left of the equal 
sign was defined. If it was, the new value replaces the old one. If it was not, it is defined 
by vsm and the routine goes to reset. If the expression on the right was undefined, the 
attempted definition is ignored on Pass 1, and causes an error comment on Pass 2. 

Variables are handled at evl by a variety of routines. The logic is that we must first have a 
symbol » If the symbol is defined, nothing further is done unless it has an overbar. If it is 
defined as -0, on Pass 1 we act as if it were really undefined and exit, and on Pass 2 we re- 
define it to the correct value which is the sum of the variables origin (as determined by the 
location of the pseudo-instruction variables on Pass 1) and the variables counter, which 
counts the different variables as they are defined. If it is defined as other than -0, on 
Pass 1 we give an error alarm (for this implies it was defined in a conflicting manner else- 
where), and on Pass 2 we ignore it, assuming that a previous occurrence has caused it to be 
defined correctly. Thus, on Pass 1, we go defining all variables as -0, and on Pass 2 we 
redefine them to their correct values as they occur, The scheme avoids requiring a separate 
list of variables, as they are stored in the main symbol table at all times, but has the dis- I 
advantage that the first appearance must have an overbar, or the variable will be incorrect- 
ly evaluated as -0 . 

The actual defining of symbols is handled by the vsm routine. Since the symbol table is 
maintained sorted at all times, vsm must locate the correct place for the new symbol and 
move all lower symbols down two registers to make room for it. The routine starts at the 
bottom of the symbol table and works its way up, using the overflow indicator in the same 
way that it is used in the logarithmic search. At the outset a check is made to see whether 
all of storage has been used; if it has, an error comment is made. 
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PSEUDO-INSTRUCTIONS 

The pseudo-instf action system uses a form of list structure in the principal table, which begins 
at mai. There are two relevant registers, mai and psi, which contain indices to the table. 
From mai+1 +o npi-1 are the system pseudo- instructions arranged in a three-entry table. The 
first two entries are the name of the pseudo-instruction and the last is the location to which 
control is to be transferred in the event one is found. Index psi is a pointer to the last pseudo- 
instruction name in the table, If there are macro- instructions defined, it points to the last 
macro name. At npi the macro storage begins. Each macro block begins with three registers, 
of which again the first two contain the name, but the third entry is now a pointer back to 
the beginning of the previous macro or pseudo name. These pointers contain law in the in- 
struction part, and the negative sign is used to distinguish these pointers from pseudo- 
instruction locations. These considerations dictate the form of the search for the pseudo or 
macro name. 

First we load the l-O with mdi, which is an indicator which is on (negative) if this name is 
that of a macro-instruction to be defined. Then we look at the last name defined, via the 
pointer psi . if the first three characters match, the second three are checked, if these 
match also, we either go to the mdm alarm if we are trying to define a macro of this name, or 
go to the appropriate routine . If the sign of the pointer is negative, we have a macro name, 
compute the beginning of the macro information storage and go to mac. If it is positive, the 
pointer addresses the location containing the location to which control is to be transferred. 

If the first three match but the second three do not, it is recorded in flag 2 that at least one 
approximation to the correct name has been found, and the location is retained in sp5. The 
search is continued until either the correct name is found or the table is exhausted. If no 
name is found, and the name being searched is the name of a macro being defined, control 
passes to dmi, define macro instruction; if an approximation has been found, we go to the ap- 
propriate routine as before. If all the preceding fail, the name is undefined and causes an 
alarm at ipi . 

The various pseudoobstructions are fairly straightforward in their execution. Character and 
Flexo treat their arguments in an obvious manner. Text checks rqc, which is negative in the 
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which is saved in t2. Register tl counts the characters in each word. Until the terminating 
character is matched, complete words are sent to the storage word routine, or to the storage 
word part of the macro processor if in a macro definition. When the terminator is matched, the 
last word is filled out with zeros (spaces) as necessary, and after it is disposed of, the routine 
exits through the storage word routine to rnw . 

The pseudo-instruction Repeat sets all terminating switches to illegal format except comma, tab, 
and carriage return and then exits to pick up the count. The termination of the count goes to 
rql , which checks definiteness and for a positive or zero count. If all is well, the pointers for 
the readout of the flexo list are saved in private temporary storage, and carriage returns are 
arranged to trap. The routine exits to reset. Each succeeding carriage return is counted until 
the count runs out; until it does, the flexo pointers are restored to their old values and the 
character reader re-reads the characters. When the count runs out, the carriage return switch 
is restored and the routine exits. The reason Text is not allowed in a Repeat is to ensure that 
all characters required by the Repeat are in storage. Otherwise, rfb might have stopped read- 
ing tape on a carriage return in the Text (and therefore, inside the Repeat), and the trick of 
restoring the pointers would not work. 

Start causes a complaint if it occurs in a repeat or macro definition and otherwise sets the 
terminating switches to pick up the starting address. The address termination returns to_s, 
where on Pass 1 the program is stopped ready to begin Pass 2, and on Pass 2, if everything is 
definite, the address is saved and the punch buffer dumped. The origin for a continuation 
tape is set up from loc, and the program stops. Continue punches a start block if pch is on, 
preceded and followed by some blank tape. The program again stops, and Continue begins 
Pass 1 anew retaining all symbol definitions. The contents of sov control action on Start. 

The variables pseudo-instruction is considered illegal if in a macro definition or in a region 
of indefinite location. Because of limited storage, variables may be used only once . If re- 
peated usage were allowed, two entries would be required for each use; as it is, the two 
numbers are kept in va 1 and va2 which are the beginning of, and the first free register after, 
the variables storage. Although a count of variables is kept on Pass 2, it is necessary to 
record the first free register, because in the event that the operator should desire to repeat 
Pass 2, the variables count would be zero as all variables would be correctly defined on the 
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first Pass 2. On Pass 2, a check is made to see that the pseudo-instruction location agrees with 
that found on Pass 1 , and if it does not, there is an alarm . If al I is wel I , a location assignment 
is simulated to leave room for the variables, and the program continues. 

The pseudo-instruction dimension causes symbols to be defined as variables, with the variables 
counter being advanced according to the size of the array. Terminating switches are set up so 
that commas are ignored, left parens save the symbol in ten (and check flag 5 to make sure 
only one symbol appeared), and right parens do all the work. The array size is evaluated and 
checked for definiteness. The saved symbol is then looked up. On Pass 1 control goes to di3 
which, if the symbol is undefined, defines it as -0. On Pass 2, the correct definition is con- 
structed. On both passes, the variables counter is suitably advanced and the routine exits. 
The terminators are restored when a carriage return or tab is encountered. 

The pseudo- instruction constants is quite similar to variables in its operation. The values of 
the constants are stored in order in the macro-instruction table above the last macro defini- 
tion, starting at a register whose address is kept in con. On Pass 1, the location is advanced 
according to the total usage of parenthesis operators, whether or not any identical constants 
occur, and the location of the beginning of the constants storage is saved in the first entry of 
the constants origin table. On Pass 2, the stored constants are dumped into the punch buffer 
via the storage word routine. There is no ambiguity as to how far to advance the location 
counter, as the number of parentheses, which is kept in nca, must be the same on both 
passes. The number of different constant values is determined by nco, which will generally 
be less than nca. Storing the constants on top of the macro definitions has both advantages 
and disadvantages. The primary advantage is economy of space in the assembler, for all of 
the available table space must be used before the tables collide, and any saving in one table 
is automatically available to the others. The major disadvantage is that an unnecessarily 
large block of space may be reserved for constants in the assembled program. To avoid this, 
it would be necessary to save the values of constants on both Pass 1 and Pass 2, leaving one 
register in the reserved storage area for each constant which is undefined at its appearance on 
Pass 1, plus whatever is required for the defined ones. Since in general there will be con- 
stants used before all the macros are defined, putting the constants on top of the macro table 
is not feasible in this scheme. The constants are placed in the constants table by the con- 
stant table search routine which wiii be discussed iater. 
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Although it is not done here, it is quite possible to check for agreement of location of the 
pseudo-instruction constants on Pass 1 and Pass 2. If they disagree, it is clear that the result 
on the assembled program would be disagreeable, as all preceding constant syllables would 
have been incorrectly assembled. It should be pointed out that the second entry in the cor 
table is set up on Pass 2 and is used only by the symbol package for printing out the constants 
areas. 

CONSTANTS 

Constants syllables are enclosed in parentheses. Left parentheses normal iy go to ip, and 
right parens go to rt from which they go to rp unless there is no matching left paren, in 
which case control goes to ilf. There is a four entry table (cvl-cv4) in which are stored the 
macro-instruction dummy symbol pushdown counter (described later), wrd, the sign preceding 
the left paren, and whether wrd is defined. There is a subroutine pi which handles the 
indices on the cv tables which is called here to move the pointers up one level . If the table 
overflows, control goes to tmc for an alarm. The first left paren saves all the terminating 
character switches in private temporary storage and sets them to go to the constant evaluating 
routine or ilf. In either case, control then goes to rsw to reset all storage associated with 
words and syllables. The value of the constant is then accumulated. 

Right parens now go to rp, which evaluates the constant, and if not in a macro definition, 
calls co which files the constant in the constant list and returns the location in which it will 
be stored. The appropriate sign is applied, and the value is added to the previous value of 
wrd. Again pi is called, this time to move the pointers down one level . The indicators for 
syllables are then reset, and if the routine was entered from a right paren, the routine exits 
to process the next character in sequence. The word terminators comma, tab and cr also 
enter at rp, but when finished they go around again until the level is reduced to zero. The 
check for carriage return at rp3 is a patch that was put in to fix a bug in the repeat logic . 

When the level is reduced to zero, the terminating character switches are restored to their 
original values and the routine exits to the appropriate switch. 

The co routine is straightforward. The constants appearance counter nca is stepped, and on 
Pass 1 the routine exits at once returning -0. On Pass 2 def is checked, and if any undefined 
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symbols appeared, an alarm is flagged. The search for a matching constant begins at the bot- 
tom of the constant table, to which con points. If a matching value is found, at co6 the 
position in the table is found, added to the current constant origin, and returned as the value 
of the syllable. If the search is exhausted unsuccessfully, the pointer to the top of the table 
nco is increased by one and, if there is any storage left, the new constant is added to the 
list. The value of the syllable is then constructed as before. 

There is a fairly large amount of initialization for the constants routines at npl . The top of 
the macro instruction list is used to determine con , and nco points to it until there are con- 
stants in the table. The constants appearance counter nca is cleared, and the constant ori- 
gin indices are set to zero. The pseudo- instruction constants also clears nca and nco and 
advances the constant origin indices. 



SECTION 3 

MACRO INSTRUCTIONS 

The macro instruction facility in MACRO is both the strongest and weakest part of the program 
It is the strongest in the sense that it is that part of the program which contributes most toward 
ease of programming, especially in setting up tables of specialized format. It is the weakest 
in that It is quite inflexible and does not incorporate any of the more significant improvements 
in assembler technology that have occurred since the logic was first written in 1957, 

There are two frequently used ways of organizing macro instruction storage: either the input 
characters comprising the definition are stored away, with dummy symbols usually marked in 
some special way, or the input characters are partially assembled, and the assembled words 
are stored with provision for inserting the dummy symbol values when the macro is used. The 
first scheme requires a relatively large amount of storage for macro definitions and has con- 
siderable complication in the treatment of dummy symbols if macro calls are permitted within 
macro definitions. However, the rest of the assembler can be used as a subroutine when the 
macro is called, and considerable flexibility is available in the use of dummy symbols, since 
an entire character string can be inserted as, say, part of a macro to print a message on the 
on-line typewriter. The second scheme realizes some economies in macro instruction storage, 
particularly if macro calls within macro definitions are relatively infrequent, and has a 
slightly less involved treatment of dummy symbols. The principal disadvantage is that dummy 
symbols can not supply other than numerical values to the compiled instructions without a 
large amount of involved coding. It is the second scheme which is used here. 

Before delving into the mechanics of macro operation, we should consider some implications 
of macro calls within macros. Firstly, a macro definition within a macro definition is not 
allowed. Macro calls within macro definitions are allowed, and dummy symbols from the 
definition are allowed to be used in the macro call . A macro call cannot have any effect 
on the macro being defined except possibly to insert additional storage words into the def- 
inition. Thus it is not possible to have a macro call a macro which does nothing but, say, 
double an argument of the first macro u Calling a macro within a macro definition causes 
the data for the called macro to be re-copied into the data for the macro being defined, 
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with no change except such as may be required for the proper translation of dummy symbols. 
With this background, we can examine the macro processor in detail . 

MACRO INSTRUCTION TABLES 

The best place to start is with an examination of the macro-instruction table structure. The 
principal table is mai » After the pseudo-instruction data, the first word is a code word con- 
sisting of code bits which are read from left to right. The other entities in the table are 
identified by these bits» The code combinations are as follows: 

denotes a storage word „ 
10 denotes a dummy symbol specification. 
110 denotes a constant. 

1110 denotes a dummy symbol parameter assignment. 

1111 marks the end of the macro definition . 
Subsidiary combinations are used after these identifiers as necessary. 

Tine order of entities is as follows: First will appear any relevant dummy symbol specifications. 
Next will appear one of the other entities, with which all of the dummy symbol specifications 
are associated . Parameter assignments and storage words are the lowest order, and they may 
include constants. If a storage word or parameter assignment contains constants, and both the 
word or assignment and the constants contain dummy symbols, the dummy symbols within each 
constant appear first, followed by the constant designator, followed by dummy symbols for 
the word or assignment, followed by the word or assignment data . 

Each dummy symbol specification code bit pair is immediately followed by seven more bits 
which specify the dummy symbol sign and the dummy symbol number. The six bits for the 
number are written in reverse order. AM these bits are written into the table by sco and 
scz , store code bit one and store code bit zero. The writing of the dummy symbol specifi- 
cation uses an additional routine wro which calls sco and scz. There is a corresponding 
routine rro which reads dummy symbol specifications. 

Storage words store one additional bit which is zero or one depending on whether the word 

is zero or non-zero, respectively. If the word is non-zero, it is stored in the macro instruction 

table. 
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Constants and parameter assignments are very similar in that both have associated a value 
and a dummy symbol number. The value is treated as it is in storage words. The dummy 
symbol number is treated as in dummy symbol specifications, except that the sign bit is 
used to tell whether this is a new dummy symbol (denoted by a 0) or a redefinition of an 
old one (denoted by a 1) . Constants behave like parameter assignments in that their effect 
is to define a new dummy symbol whose value will ultimately be the location of the stored 
constant. 

The net result in the mai table is an assortment of codewords and value words. The type of 
any particular word is determined by the preceding codeword in an elementary manner: the 
first word is a codeword, in which one writes bits until it is full; then one starts on a new 
codeword. Any value words which occur in the meantime are stored in order after the code- 
word, and the new codeword is put in the next available space. As there are routines for 
writing code bits, so is there a routine for testing them: tcb , which is used when a macro is 
called. Its operation will be considered later. 

Also used by the macro processor is a set of erasable tables. First there is dsm, the dummy 
symbol table, which has the flexo codes of defined dummy symbols. Each dummy symbol 
has a number which is its position in this table. Dummy symbols are numbered sequentially 
in order of definition starting with R, which is always defined and is dummy symbol number 1 . 

Next there is dss, the dummy symbol specification table, which is used when defining a new 
macro-instruction in terms of an old one. The nth entry in dss , gives the dummy symbol in 
the macro being defined corresponding to dummy symbol n in the one previously defined. 
The first entry is always 1, since dummy symbol R always transforms into itself. An entry 
of -0 means that there is no dummy symbol in the new definition corresponding to one in the 
old definition because the value of the old dummy symbol has been determined by some means; 
for example, if first A had been defined, and second had been defined as first 1, there is no 
dummy symbol in second corresponding to A in first, because A now has a definite value, 
i.e., 1 . 

Next in the list is dsv, the dummy symbol value table. It contains the values of all the dummy 
symbols when a macro instruction is used. 
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Finally there is pdl , the dummy symbol pushdown list. The pdl table is used to ensure that 
the order of dummy symbols fed into the mai table corresponds to that described above. 
Pointers to this list occur in cv.l . As constant levels build up because of left parentheses, 
pointers in cvl mark the beginning of each level . When left parentheses reduce the level, 
all the dummy symbol specifications down to the next level are stored and a constant assign- 
ment defines a single dummy symbol on the lower level whose value is the location of the 
constant. The dummy symbol specifications in pdl are stored by prs , prepare specifications; 
and all specifications at any one level are stored in mai by ss, store specifications. 

Since we have doubtless by now left the reader in a sea of confusion, without further ado 
we will enter into a description of how all this is done in the hope that some clarity may 
yet be achieved . The reader is advised to construct some macro definitions and examine 
the resulting mai table in an actual assembly for further examples of how all of this works. 
An example is given here in Appendix 2„ 

MACRO INSTRUCTION DEFINITIONS 

The appearance of the pseudo-instruction define marks the beginning of a macro definition. 
Control passes to dfn, where the first test is for whether a macro definition is already in 
progress. If it is not, terminating switches are set so that equals and comma are illegal, 
slash for anything other than a comment is illegal, and tab or carriage returns other than 
redundant ones are illegal . The location counter is saved in tlo and zeroed. The symbolic 
location is killed, and the macro define indicator mdi is turned on. The macro instruction 
pointer is boosted to leave room for the pseudo-instruction information, and the routine 
exits to rnw to await the name of the macro being defined. When this has been read and 
checked for multiple definition (see Search for Pseudo-instruction), control passes to dmi . 
Here the name and other pseudo-instruction data is set up, but psi is not stepped as yet as 
recursive definitions are not allowed. The macro define indicator is turned off, and the 
macro instruction indicator is turned on. The dummy symbol counter is set to zero, the 
specification pushdown counter is set to zero, and the terminators are set to pick up 
dummy symbols. Dummy symbols terminated by tab and carriage return go to pdl and pds, 
respectively. Checks are made to see that legitimate dummy symbols are used, and if all 
is well, the dummy symbol is filed in the dummy symbol table at dd . The last dummy 
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symbol, followed by a carriage return, sets the define exit to go to reset terminating character 
switches. It is possible to check for duplicately defined dummy symbols, but it is not done 
in this version of the program. 

Reset terminating character switches sets the switches to go to the appropriate macro definition, 
routines. Dummy symbols appearing in expressions are detected at wsp, which is logically 
part of evl . Search for dummy symbol sds is called after the sign is set up, and the next 
instruction is skipped iff the symbol is defined. Subroutine pr enters the specification for 
the dummy symbol in the dummy symbol pushdown list. 

Storage word terminators (tab and cr) go to sw. If there are undefined symbols in the word, 
there is an alarm, otherwise, the alarm location and location counter are stepped and control 
goes to ss , which stores the dummy symbols from the pushdown list, and then to smb to store 
the word after the code bits are written. Final exit is to rnw. Register tea is a temporary 
for subroutine exit addresses (hence the name) . 

The equal sign in a dummy symbol parameter assignment goes to da. If the symbol to the 
left of the equal sign is in good order it is saved in ten and the terminators are set to pick 
up the expression for the value. The terminator traps to dal where the usual checks are 
made. The saved symbol is then iooked up in the dummy symbol tabie. if it is defined, 
a negative sign is attached to flag this as a redefinition; otherwise dd is called to define 
a new dummy symbol . Note that sds returns the dummy symbol in the IO where it is used 
by dd. Next mp is called, which writes the appropriate entries in the mai table. Final 
exit is to rst to reset the terminators. 

Constants in a macro definition go to Ip and rp as before, but are treated differently at 
rp. Instead of calling co, control passes to rp8 , which first calls mc to write a constant 
entry in the mai table, and then defines a new dummy symbol (whose flexo name is zero) 
whose number is used to complete the entry in the mai table. A specification for the newly 
created dummy symbol is written on the specification pushdown list, from which it will be 
filed in the mai table preceding the entry for the entity in which the constant has been used. 
After this, we go back to rp5 to move the pointers and restore the terminators if necessary. 

The macro definition is ended by the pseudo-instruction terminate. This is illegal if not 
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in a macro definition. The location counter is restored, the symbolic location cleared, 
. nd the macro-instruction indicator turned off. The pseudo-instruction index is set to 
include the new definition, and four ones written into the codeword. The last codeword 
is rotated around into the correct position and stored in the mai table. The routine then 
exits to rst to set the terminating characters to normal assembly position. 

To conclude this part of the macro definition procedure, let us turn to the code bit routines. 
The two entries sco and scz both save the return address, and save the bit to be stored in 
tc which cannot be in use at the same time. The bit counter sen is stepped, and until it 
overflows, control goes to sc4 where the new bit is added to the current codeword which 
is stored in sew. When a codeword overflows, it is stored in the mai table at sc3, and then 
sm , store word in mai is called. St does not store anything useful, however; it merely is 
used to locate the point in the mai table at which the NEXT codeword will be stored. The 
reason for this is of course that the codeword must precede any value words which may be 
associated with it. The lio i sc3 makes the code bit routine transparent to the IO, which 
fact is used by wro . 

MACRO INSTRUCTION USAGE 

We will defer until later any discussion of macro calls within a macro definition. Assume 
a macro has been called, and mii is off. The pseudo-instruction search routine goes to 
mac, where the address of the first word of macro data, as determined by spm, is saved 
in aw, which is the general pointer for reading out of the mai table. The terminating 
switches are set to pick up the arguments (if any), and the dsv table is cleared .Control 
now passes to r2 to pick up the arguments . 

Commas terminating arguments go to ael, from whence evl is called, and if the argument 
is defined, its value is stored in the dsv table at ae4. The routine exits at ae6 until the 
last argument is terminated, when control passes to am-. 

Assemble macro-instruction into program (am) reads and dispatches on the principal code- 
bits. The codebit tester returns to one after the call if the codebit is a one, and goes to 

the address in the AC if the codebit is a zero. Storage words go to awm . There are two 

nested subroutines here: rw, read word, which gets the next word out of the mai table; 
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and ar, which checks the zero-nonzero codebitand calls rwif necessary. Note that rw 
leaves the number in the AC, the IO, and in t. It is added into wrd by the ed add routine, 
and if not in a macro definition, the complete word is filed in the punch buffer by the stor- 
age word routine . 

Dummy symbol specifications go to as, where the dummy symbol number is read. The sign 
bit is saved in tc and used to set up the sign operation at as6. When not in a macro def- 
inition, the dummy symbol value is read next and added into wrd by ed . The routine then 
exits to ami to read the next principal code bits. 

Constants go to ac, where the value word is read and, if mii (which ar returns in the IO) 
is off, co is called and the location of the stored constant put in wrd. The new dummy 
symbol which represents this constant is then stored in the dsv table. The routine then 
exits to ami , which clears wrd. The expression in which the constant syllable was used 
will have a dummy symbol specification for the associated dummy symbol, and it is by this 
means that the correct value of the constant syllable will appear in the expression. This 
obtains complete generality with respect to usage of dummy symbols within and without 
constant syl lables of arbitrary depth . 

MACROS WITHIN MACROS 

We are now prepared to deal with the question of macro calls within macro definitions. 
The macro being defined will in general have associated dummy symbols. The index to 
these symbols is saved in dsl as soon as control gets to mac. In addition to clearing the 
dsv table, we now clear the dss table in order to make the routines work in the event of 
unsupplied arguments, which are taken as zero. Now the arguments are picked up. These 
may contain dummy symbols, which by the time the terminator occurs, will have been en- 
tered on the pushdown list and will have set the dummy symbol indicator. If this has oc- 
urred, a new dummy symbol will be defined which represents the argument dummy symbol or 
symbols, and a parameter assignment will be written into the mai table to signify this fact 
by the routine at ae7. Furthermore, the number of this dummy symbol as it will be used 
in the macro being defined is entered in the dss table in the position corresponding to the 
dummy symbol used in the previously defined macro. If an argument contains no dummy 
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symbols, the dss entry is made -0 to signify that no new dummy symbol need be included 
when reading specifications for old ones. The old dummy symbol may be said to be 
inactive . Constant syllables appearing in arguments are treated as elsewhere: a new 
dummy symbol is defined whose value will be that of the constant. This is taken care 
of by the lp and rp routines as we have seen before. Note that this is done whether 
or not the constant syllable contains dummy symbols. After the arguments are completed, 
control goes to am as usual . 

At am , we insure that the specification pointer is reset and start reading codebits. Storage 
words go to mw instead of tb3 after reading out of mai, and thus get stored back into mai 
for the new definition. Arguments, after reading the sign and dummy symbol number, go 
through as8 instead of skipping to as5 and examine the dss entry. If it is zero, there is 
no new dummy symbol to worry about and the dummy symbol value is picked up as usual . 
If it is not zero, there is a dummy symbol , which has the proper sign applied and then is 
entered on the pushdown list. If the dummy symbol number is 1, then the value is added 
into wrd, as this is the only way that the location counter as used in the macro being de- 
fined can get into the macro being read. Sf it is anything else, the dummy symbol value 
must not be added in at this point, for it will be included when the macro being defined 
is ultimately used. To see this, recall that 1) if the argument included dummy symbols, 
a dummy symbol assignment was written which included the value, and 2) if the argument 
did not include dummy symbols, the dss entry is zero and the value will be added here. 

Constants go to ac, where, after reading the value, we call mc to rewrite the value for 
the new definition and then go to acl „ Here we read the associated dummy symbol 
number which we will then look up in dss. If the sign is positive, this is a new dummy 
Symbol and dd is called; the new dummy symbol number is then entered in the dss table. 
If the sign is negative this is a dummy symbol redefinition and the old dss entry is ex- 
amined to determine whether this dummy symbol was active before. If it was, nothing 
more need be done, as the old dss entry is correct; if it was not, a new dummy symbol 
must be defined. In any case we leave cc with an active dummy symbol . The new dummy 
symbol number is then written in the mai table to complete the constant entry, and we 
return to ami „ It would appear that the dummy symbol value should be entered in the 
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dsv table, but in fact this is not necessary, as the dummy symbol will be referred to only 
once in whatever the constant is used in, and this reference will not refer to the dsv table 
since the corresponding dss entry is not or 1 . (See discussion of as above for elaboration 
of this point.) 

Dummy symbol assignments read the dummy symbol value from the mai table, then enter 
it in the dsv table . If the dummy symbol defined includes no dummy symbols in its value, 
we go to aal where we clear the associated dss entry to signify this. If it does , we call 
cc as was done with constants to activate a suitable dummy symbol . A pardmeter assignment 
for this dummy symbol is then written into the mai table, and the routine exits to ami . 

Encountering the code for the end of the macro definition restores the dummy symbol counter 
dsk to its old value, effectively undefining all dummy symbols associated with the called 
macro. Control then passes to rst to reset and continue with the definition. 
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SECTION 4 

ERROR ALARMS 

We have seen that a fairly large amount of error checking is done during the assembly pro- 
cess, and we should consider briefly the diagnostic routine. Most errors transfer control to 
an appropriate calling routine which determines the point to which to return, the particu- 
lar routine to which to go, and the name of the error „ The error routine proper has two 
entries, one for errors which print in the fifth field of the error listing and one for those 
which do not. The return point is put into sov and the name of the error picked up and 
printed out. Next the absolute location is printed if definite, or ind is printed if it is not. 
Next the alarm symbol indicator is tested, and if there is a symbolic location it is printed. 
Next the last pseudo-instruction used is printed. If there is a fifth field, it is printed at 
als„ Completion of an alarm printout is followed by a carriage return. Next the test word 
is checked to see whether immediate continuation is desired, and if it is not the machine is 
stopped. Continuation returns to the appropriate routine. There is some extra coding to 
make sure that the columns line up correctly if the symbolic location or api fields are 
vacant. 

START OVER SEQUENCE 

The first routine in the program is the sequence that determines action on depressing the 
start key. We have seen that sov contains the address to which control is transferred on 
Start unless test word switch is on. If it is on, the switches are placed in the IO and the 
first five registers of temporary storage are set in order to 1 or -0 depending on whether 
the associated switch is 1 or 0. If the continue pass bit was on, control goes to np2, 
otherwise control goes to psl or ps4 for Pass 1 or Pass 2, respectively. 

SYMBOL PACKAGE 

The symbol package is a six link chain. The routines sit in the temporary tables and use 
appropriate parts of the main program as necessary. The first link is symbol punch. If sense 
switch 1 is off or gets turned off, the routine exits to the input routine to read in the next 
link. If it is on, we first feed some tape and then listen for characters from the on-line type- 
writer. These are punched by the title puncher in the main program which returns control 
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to Is. A tab termination goes to Is2 which listens for s or m for symbols or macros. If 
symbols are to be punched sps-1 will have jmp sps which will punch the symbol table and 
then go to the macro puncher if flag 5 is off signfying macros are wanted too. If fust macros 
are wanted, we go at once to the macro routine. 

Both the symbol and macro punchers use the end subroutine which copies the appropriate 
storage into the punch buffer and transfers control to pun+6 when the buffer is full or the 
end of the macro or symbol table is reached. When punching a block is done, control returns 
to pcb+1. Flag 4 gets set on the last block, and finding it on causes the subroutine to exit 
through psx . 

The macro punch will punch macros only if some have been defined. If some have, end is 
called. At the end of the job some blank tape is fed, followed by punching a start block. 
Some more tape is fed, and the routine goes back to the input routine. 

The next link contains a text printing subroutine, the initial symbol table, and the con- 
stants area printer which will run if either switch 2 or switch 3 is on. A pointer to the 
cor table is checked to see whether any constants areas were designated, and if none were, 
the routine exits to the input routine. Otherwise, pss is checked, and constants origins 
are dumped on Pass 1, and the entire cor table on Pass 2. Flag 5 is used as a pass 
indicator. When finished, control returns to the input routine. 

The alphabetic symbol print is the next link, which runs if sense switch 2 is on. It uses 
the symbol table and text printer which remain in storage from the preceding link. Since 
the symbol table is ordered alphabetically, the logic is simple enough. Each symbol is looked 
for in the initial symbol table, and if it is not there, it is printed out. When done, the head- 
ing for numeric symbol print is written if switch 3 is on, and then control goes back to the 
input routine. 

The numeric symbol print is the most complex part of the symbol package. A floor register 
(tl) and a ceiling register (t) are kept, with the floor initially containing zero. Successive 
passes are made through the symbol table comparing the value words with the floor and ceiling 
If a symbol is less than the floor, it is discarded, and if it is equal, it is printed out if not in 
the initial symbol table, If it is larger than the floor, it is compared with the ceiling and if 
it is greater, it is discarded. If it is less, the ceiling is set from the symbol value. Thus at 
the end of each pass, the floor represents the value of the symbols just printed, and the ceiling 
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represents the value of the symbol or symbols next in line to be printed. Therefore, the 

ceiling is moved into the floor and the ceiling is set to -0 (777777), and the process is repeated 

until -0 is found in the floor, which insures that ail symbols have been printed. 

Now let us follow the coding. Pointers to the initial symbol table sy3 and sy4 are set up, 
the ceiling (t) is zeroed, and a carriage return typed. We then drop into the main loop. 
The ceiling is moved to the floor, -0 put into the ceiling, and the symbol table pointers 
initialized. Now we start comparing values with the floor. Note that overflow will be a 
problem, for either number can vary over the whole range of values from to 777777 . 
Thus a simple subtraction will not yield a meaningful difference. Furthermore, it turns out 
not to be convenient to use the overflow indicator, which is better suited for use when 
the range of values is from 400000 (smallest) to 377777 (largest). Therefore we proceed 
in the following way. The numbers are xor'ed and the sign of the result examined. If it is 
positive, the numbers are of the same sign and a meaningful subtraction can be performed, 
and this is done at sql. If it is negative, the number with the negative sign is the larger. 
In either event, going to syi discards the number, while going to sq2 starts doing pre- 
cisely the same sort of comparison with the ceiling. Identity between the floor and value 
goes to syc where the check against the initial symbol table is made. 

At syc the symbol location is put into syz for printing purposes. Now the value is com- 
pared with the value of the present symbol on the initial symbol list. If they are equal, the 
symbols are compared at syf, and if these are equal also, this is an initial symbol and con- 
trol passes to syi. If the initial symbol value is less than or equal to the symbol table value, 
the initial symbol table pointers are moved upward until this is no longer true. Note that the 
initial symbol table is arranged in numerical order. Thus it is not necessary to compare the 
symbol table symbol with all the initial symbols, but only with the next one which it is expected 
that will be found. 

At syi the main symbol table pointers are moved up. When the top of the symbol table is 
reached, the floor is checked for -0, and when this is found, the routine exits to the input 
routine after waiting for the last carriage return. 

The next link in the chain is restore, called by sense switch 4. This routine resets the macro- 
instruction indices, then uses vsm and the initial symbol table to reconstruct the initial 
symbol table from scratch. When this is done, we go once again to the input routine to read 
the last link. 
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The final routine determines where to return control in the main program after the symbol pack- 
age is done. If restore was run, control goes to ps5. Otherwise, pss and flag 6 are 
checked to return control to the appropriate place in the start routine, ready to begin or con- 
tinue the assembly. 
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CONCLUSION 

This completes our discussion of the MACRO assembly program . The version described here 
does not use sequence break and will run on any PDP-1 . Enterprising programmers may wish 
to make changes to the routine to incorporate sequence break or make other improvements . 
It is hoped that this memo will facilitate this. We strongly suggest that no fundamental 
changes be incorporated, particularly those affecting the source language, for source 
language compatibility, and to a lesser extent, operating compatibility, are desirable goals 
However, this should not be interpreted as ruling out any changes. We recognize that the 
program is not in any sense ideal or perfect. Nonetheless, it will give satisfactory service 
for its intended purpose . 
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APPENDIX 



MACRO PROGRAM LISTING 
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MACRO FIO-DEC * part 1, 2-13-62 
ncn=iO nfw=200 nds=30 ncd=20 



ncl= 



1240/ 





-•hf 


pbf+iO±/ 


fix. 


flx+nfw/ 


dsm, 


dsm+nds/ 


dss } 


dss+nds/ 


dsv, 


dsv+nds/ 


pdl, 


pdl+ncd/ 


cvl, 


cvl+ncl/ 


cv2, 


cv2+ncl/ 


cv3, 


cv3+ncl/ 


cv4, 


cv4-i-ncl/ 


cor, 


cor+ncn+.u, 






cr2, 


cr2+ncn+l, 






1'l 


ckl+i/ 


org, 




psi, 


DSi+1/ 


mai, 


r-.-ry r- r\ / 
( t'J^Z 


lOW, 



/punch buffer 

/flexo input buffer 

/dummy symbols 

/argument translation Indicators 

/m-i argument values 

/dummy symbol specifications 

/constants dummy symbol levels 

/constants value levels 

/constant signs 

/constants definite on this level 

/list of constant origins 

/second constants origin 

/checksum 

/block origin 

/pseudo instruction index 

/macro instruction storage 

/symbol table end 



xy=l 



one=^i 



define 



error ROU , RET , NA!*! 
law RZT 

NAM 
terminate 
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/start over entry 

lat 
sma 
sov, jmp xy 

sol, swap 

init so3,pss 

so4, ril Is 

clc 

spi 

law i 
so3, dac xy 



index so3> (dac pss+5,so4 
lac npa 
sma 
jmp npc 



so5, lac pss 
spa 

jmp psi 
jmp ps4 
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/reset terminating character switches 

rst, law rsk 
rsl, dap rsx 

lio mii 

init bs,rnw,. 

init ct,c 

init dtb+57> lp 

spi 

jmp rsm 

dio mdi 

init bt,b 

init qt,q 

law tab 

jmp rsl 

rsm, init bt,df2 

init qt,da 

law sw 
rsl, dap tt 
rsx, jmp xy 

/reset to convert next word 

rsk, 

rnw, init lpl,cvl 

init prs,pdl 

init rt,ilf 

rsw, dzm wrd 

elf 5 /syl 

dzm nsm 

dzm amn 

&±m as a 

elf 6 . /dsi 

law 1 

dac def 

law r 

rss, lio (opr 

sp, dio sgn 

dap spx 

dzm let 

elf 4 /liu 

dzm ovb 

dzm num 

dzm sym 

dzm chc 
spx, jmp xy 
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/read and dispatch on one character 

r, jsp rch 
add ( dtb 
dap . +2 
clc 

jmp xy 

/re-dispatch on last character read 



r2, 

/dispatch table 



lac rep 
jmp r+1 



dfb, 



tt, 



rcu 



red 



jmp p 
jmp n 
jmp n 
jmp n 
jmp 
jmp 
jmp 
jmp 



n 
il 
il 
il 



jmp n 
jmp 1 
jmp 1 
jmp 1 
jmp 1 
jmp il 
jmp r 
jmp 

jmp il 
jmp 1 
jmp 1 
jmp 1 
jmp 1 
jmp il 
jmp pm 
jmp ovr 

jmp il 
jmp 1 
jmp 1 
jmp 1 
jmp 1 
jmp red 
jmp rcu 
jmp il 

stf 3 
jmp r 

elf 3 

jmp r 



jmp n 
jmp n 
jmp n 
jmp n 
jmp n 
jmp r 
jmp il 
jmp il 

bt, jmp 
jmp 1 
jmp 1 
jmp 1 
jmp 1 
jmp cqt 
jmp r 
jmp il 

jmp 1 
jmp 1 
jmp 1 
jmp 1 
jmp 1 
'jmp il 
jmp rt 
jmp Ip 

jmp 1 
jmp 1 
jmp 1 
jmp 1 
jmp 1 



/space, 1 

A, 3 

A, 5 

/6, 7 

A, 9 

/i, stop code 



/space, + 
A, t 
A, V 
/w, X 

/y, z 

/i, comma 

/color 

/tab 

/middle dot, j 

A, l 

/m, n 
A, p 




jmp rl 
jmp il 
dtc, jmp tt 



A 

A, 

A, 
A. 



c, period 
e,, backspace 
/car ret 
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/case dependent characters 

cqt, szf 3 

qt, jmp q 
ct, jmp c 

pm, szf 3 

jmp p 
jmp m 

/process alphabetic or numeric character 

: 1, dac let 

szf 3 /cas 

stf 4 /liu 

jmp In ' 

■12, lac sym 

ral 6s 
ior t 
dac sym 

jmp r 

n, law 17 

and t 

dac tl 
n2, lac num 

ral 3s 

xct .+i 
nl, xx /opr=octal, add num=decimal 

dac num 

add tl 

sza 

jmp n3 

lac tl 

xor num 
n3, dac num 

In, idx chc 
sub (3 
spq 

jmp 12 
lac let 
sma 
jmp r 
dzm num 
dzm let 
dzm chc 

stf 5 /syl 

lac sym 
dac api 
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/read three more characters for p-i or m-i 



lac o 
dac syn 
setup tl,3 
jsp rch 

ln4, sza i 

jmp spm 
sad (54 
jmp spm 
sad (36 
;Jmp spm 
sad ( 77 
jmo SDm 
sad (35 
jmp rch+1 

ln3> isp tl 
jmp . +2 
jmp rch+i 
iac syn 
ral 6 s 
ior t 
dac syn 
jmp rch+i 

/over bar indicator 

ovr, law 1 

dac ovd 

.Imo r 



/space 

/minus 

/ tab 

/cr 

/color change 
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/search for pseudo or macro instruction 

spm, 

sp2, 
spl, 

sp7, 



sp3, 



sp5, 



s P 4, 



sp8, 



elf 


2 


lac 


psi 


lio 


mdi 


dap 


spl 


lac 


sym 


sad 


• 


jmp 


sp3 


idx 


spl 


idx 


spl 


lac 


i spl 


spa 




jmp 


sp2 


law 


i 5 


add 


spl 


sas 


(sad mai-2 


jmp 


sp2 


spi 




jmp 


dmi 


szf 


2 


jmp 


sp4 


jmp 


ipi 


stf 


2 


idx 


spl 


dap 


sp5 


lac 


syn 


sas 


• 


jmp 


sp7 


spi 




jmp 


mdm 


idx 


sp5 


dap 


s P 8 


lac 


i sp5 


sma 




jmp 


i . 


idx 


sp5 


jmp 


mac 
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/address tag routine (comma) 



c, 


lac 
spa 


loc 




jmp 


rnw 




jsp 


evl 




spi 






jmp 


cl 




lac 


loc 




sad 


wrd 




jmp 


c2 




szf 


5 




dzm 


sym 




■jsp 


mdt 


c2, 


szf 


5 




jmp 


rnw 


o3, 


dzm 


asi 




dzm 


ami 




move sym, 




jmp 


rnw 


cl, 


szf 


5 




jmp 


rnw 




lac 


loc 




dac 


t3 




jsp 


vsm 




jmp 


c3 



/def in io on return 



/syl 



asm 
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/parameter assignment (equal sign) 



qq> 



qs, 



ql, 



sen, 



sck, 



lac 


let 


szf 


5 


Jsp 


ipa 


sza 


i 


jsp 


ipa 


lac 


ovb 


sza 




jsp 


ipa 


lio 


sym 


dio 


sen 


init bt,ilf 


dap 


qt 


dap 


ct 


init tt,qq 


jmp 


raw 


jsp 


sch 


jmp 


rst 


jsp 


evl 


spi 


i 


jmp 


q2 


spq 




jmp 


rst 


jsp 


usq 


lio 


sen 


dio 


sym 


move wrd,scn 


clc 




dac 


let 


law 


1 


dac 


def 


jsp 


evl 


lac 


def 


spq 




jmp 


ql 


lac 


sen 


dac 


i ea 


jmp 


rst 


move 


i scn,t3 


jsp 


vsm 


jmp 


rst 


dap 


sck 


szf 


5 


jmp 


.+3 


lac 


chc 


szm 




idx 


sck 


jmp 


xy 



/syl 



/def in io pss in ac 



/syl 
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/evaluate syllable and accumulate word value 



evl, 


dap 


ex 






lac 


sym 






jda 


per 






dac 


sym 






lac 


mil 






spa 








jmp 


wsp 




ev2, 


lac 

spa 


let 






jmp 


el 






add 


num 




sga, 


xct 


sgn 






add 


amn 






dac 


amn 




en, 


lac 


num 




sgn, 


XX 








jda 


ed 




evx, 


lac 


pss 






lio 


def 




ex, 


jmp 


• 




ndf, 


clc 








dac 


def 






dac 


t3 






jda 


ed 






lio 


sym 






dio 


lus 






lac 


ovb 






sub 


pss 






sas 


one 






jmp 


evx 






J'sp 


vsm 






idx 


vet 






jmp 


evx 




el, 


lac 


sgn 






sad 


(opr 






jmp 


ell 




el2, 


law 


i 1 






dac 


nsm 






jmp 


e2 




ell, 


lac 

szm 


nsm 








e!2 


/if +1 




sza 








jmp 


e2 


/if -1 




law 


1 






dac 


nsm 






move sym, asa 
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/evaluate symbol (logarithmic search) 

e2, law 4000 
dac tl 
clo 

lac low 
jmp el+1 

edn, lac ( sub 

dip el 

lac tl 

rar Is 

dac tl 

sad (l 

jmp ndf 

lac ea 
el, tl 

dac ea 

sub low 

spa 

jmp eup 

lac ea 

sub (lac low-1 

sma+sza-skp 

jmp edn 

ea, lac • 

sub sym 

szo 

cma 

sma+sza-skp 

jmp edn 

eqt, sza 

jmp eup 
idx ea 
lac i ea 
dac num 
lac ovb 
sza i 
jmp en 
lac num 
lio pss 
cma 
sza 

jmp evk 
spi 

jmp ndv 
lac vet 
add vcl 
dac num 
dac i ea 
idx vet 
jmp en 
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eup, lac (add 

jmp edn+1 

ndv, clc 

dac def 
move sym,lus 

jmp en 

evk, spi i 

jmp en 



move sym,lus 

error alu, en, flex mdv 



ed, 







dap edx 




lac ed 




add wrd 




sza 




jmp edl 




lac ed 




xor wrd 


edl, 


dac wrd 


edx, 


jmp xy 
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/insert symbol in symbol table 



vsm, 



dap 
law 
add 
dac 
dap 
add 
sad 
J'sp 
clo 



vsx 

i 2 

low 

low 

vi 

one 

hih 

see 



vsl, 



vs3, 

vsx, 
vs2, 



vl, 
v2, 

v4, 



lac vl 

dap v2 

add one 

dap v4 

add one 

dap vl 

add one 

dap v3 

sas (lio low+j 

jmp vs2 

lac sym 

dac i v2 

lac t3 

dac i v4 

jmp xy 

lac i vl 
sub sym 
szo 
cma 
spq-i 
jmp vs3 

lio xy 
dio xy 
lio xy 
dio xy 
jmp vsl 



/low+2+I 
/low+I 
/low+3+I 
/low+l+I 
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/pseudo-instruction repeat 



rpt, 


lac rqc 




spa 




jsp irp 




init ot,ilf 




dap qt 




init ct, rql 




dap tt 




jmp rsk 


rql, 


jsp evl 




' spi 




jsp usr 




lac wrd 




spq 




jmp rq4 




cma 




dac rqc 




init dtc,rq2 




move fwd,rqx 




move rc8,rqy 




move fwb,rqz 




jmp rst 


rq2, 


count rqc,rq3 




init dtc,tt 




jmp tt 


rq3, 


move rqx,fwd 




move rqy,rc8 




move rqz,fwb 




jmp tt 


rq4, 


sza 




jmp irp 




jsp rch 




sas (77 




jmp rch-KL 




jmp rst 


i*P* 


error aim, rq< 


rqc, 





rqx, 





rqy, 





rqz, 
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/pseudo-instruction character 

eh, jsp rch 

lio frar 6s 

sad (51 

jmp chl /r 

lio (opr 

sad (44 

jmp chl /m 

lio ch2 

sas (43 

jsp ilf /l 

chl, dio ch3 

. jsp rch 
ch2, ral 6s 
ch3, xx 

dac num 

jmp r 

/pseudo-instruction flexo 

f x, dzm num 

setup tl,3 

jsp rch 

lac num 

ral 6 s 

ior t 

dac num 

count tl,rch+l 

jmp r 



bl 



/pseudo-instruction text 
txt, 



txq, 

txw, 

txa, 

txx, 
txv, 



txk, 



lac 


rqc 




spa 






jsp 


ilf 




load txvj 


i,l aw txq 


init txXj 


, rch+i 


jsp 


rch 




dac 


t2 




dzm 


wrd 




setup tl. 


,3 


jsp 


rch 




sad 


t2 




jmp 


txk 




lac 


wrd 




ral 


6s 




ior 


t 




dac 


wrd 




isp 


tl 




jmp 


xy 




XX 






dap 


bs 




lio 


mii 




spi 






jmp 


mw 




jmp 


tb3 




load txv. 


r law rnw 


init txx j 


,txa 


init bs,rnw 


lac 


tl 




sad 


(-3 




jmp 


rnw 




dzm 


t 




jmp 


txa 
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/syllable separation characters (plus, minus, space) 



m. 



Jsp 


sch • 


jmp 


r 


jsp 


evl 


stf 


5 


lac 


t 


lio 


(opr 


sza 


i 


jmp 


ml 


szf 


i 3 


lio 


(cma 


law 


r 



/syl 



mi, 

jmp sp 

/relative address syllable (.) 

rl, 



rl3, 



lac chc 




lio sgn 




sma 




lio (opr 




dio rl3 




lac loc 




XX 


/opr or cma 


add wrd 




dac wrd 


• 


stf 5 


/syl 


lac mii 




sma 




jmp r 




rir 9s 




law iO 




rcr 3 s 




jda pr 




jmp r 
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/storage word termination characters tab and carr ret) 

tab, jsp sch 
jmp rnw 
jsp evl 
spi+sma-skp 
jsp ust 

fb3, idx ami 

tb4, idx loc 

tb2, lac wrd 
ts, dac • 

idx ts 

lac loc 

dac wrd 

and (77 

szm 

jmp bs 

lac pss 

spq 

jmp bnp 

jmp pun 

/location assignment termination character 

bl, lac def 
sma 

jmp bnp 
lac (400000 
jmp b3 

b, jsp sch 
jmp itc 
jsp evl 
lac nsm 
sad (-1 
jmp bal 
dzm asi 
lio (-0 
sza i 
dio asi 
move as a, asm 
move amn, ami 

bai, lac pss 
spq 

jmp bl 
lac def 
spq 
jmp usb 

b5, law 7777 
and wrd 
dac wrd 
sad loc 
jmp bs 



start 



*& 



Macro FIO-DEC part 2 

/punch binary block 

pun, lac org 
sad loc 
jmp bnp 
lac pch 

spq 

jmp bnp 

cli 

repeat 5 > ppa 

lac org 

add (dio 

dac ckl 

jda pnb 

lac loc 

add (dio 

jda pnb 

load t,dac pbf 

pub, lac i t 
jda pnb 
lac i t 
add ckl 
dac ckl 
idx t 
sas ts 
jmp pub 
lac ckl 
add loc 
add (dio 
jda pnb 

/form origin for next block 

bnp, lac wrd 

and (407777 
dac org 

b3> dac loc 

init ts, pbf 

bs, jmp • 
loc, 



/pseudo-instruction start 
sta, 



s, 



s2, 



s4, 



lac mil 




ior rqc 




spa 




jsp lis 




init bt,il'f 




dap qt 




dap ct 




init tt,s 




jmp v2 




lac pss 




spa 




jmp 1st 




jsp evl 




spi 




jmp uss 




move wrd, ten 




init bs,s4 




move loc,wrd 




jmp pun 




init sov,np2 




hlt+cla+cli+clf+6-opr-opr-opr 


lac pch 




spa 




jmp s6 




law i 40 




jda fee 




lac ten 




add ( jmp 




jda prib 




law i 240 




jda fee 




init sov,np2 




lio (-0 




hlt+clc+stf+6- 


-opr-opr 


jmp psl 





s6, 



1st, init sov,np2 

hlt+cla+cli+stf+6-opr-opr-opr 



/ 


pss 


fig 6 


tag 


/ 


-0 





s5 


/ 


1 





s4 


/ 


-0 


1 


1st 


/ 


1 


1 


s6 



/initialize for new pass 

ps2, law 1 
dac pss 
dac pen 
dac tit 
move ini,inp 

ps4, move psb,psi 
lac mai 
move psa, mai 
jmp npi 

ps5* /initial entry 

ps3, move mai,psa 
move psi,psb 

s5, init sov,ps2 
clc 

dac pss 
hlt+cli+clf+6-opr^opr 

psl, clc 

dac pss 
dac pen 
law i 
dac ini 
move psi,psb 
lac mai 
dac psa 

npi, dac hih 

add (sad-lac+1 
dac con 
dac nco 
, dzm nca 
dzm asi 
law 4 
dac org 
dac loc 
law 1 
dac mii 
dzm vai 
dzm vet 
load ni, opr 
init cno, cor 
init cn7>cr2 
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np2, load t, -4000 
rpa-i 
spi I 
jmp .+5 
isp t 
jmp .-3 

hlt+clc+eli-opr-opr 
jmp np2 
dzm api 
dzm fwd 
init ts.pbf 
init rcb,flx+nfw+2 
dzm rqc" 
init dtc,tt 
clc+clf 7+cli-opr-opr 
add pss 
add pch 
add tit 
sas (3 
stf 5 



/print and punch title 



pte, 



ptl, 



ptO, 



Ptl, 

pt2, 
Pt3, 

pt6, 



pt7, 

pt5, 



law i 40 ■ 
szf i 5 
jda fee 
jmp ptl+1 

iot i 
jsp rch • 
sad (13 
jmp rch+1 
sza 

jmp ptO 
szf i 6 
jmp rch+1 
sad (77 
jmp pt5 
stf 6 

(40 

5 



/sync on typewrite** 
/stop code 



sad 
stf 



ral Is 
add (ftp 
dap pt2 
dap pt3 
idx pt3 

lio t 
iot 4003 
szf 5 
jmp ptl 

lac . 

repeat 3, jda pt6 

lac . 

repeat 3, jda pt6 

jmp ptl 



dap pt7 
lac pt6 
cli 

rcl 6s 
ppa 
jmp . 

szf i 6 
jmp ptl+1 
dzm tit 



/tyo with nac but no ioh 



K Q 



/print pass 1 and 2 

pps, jsp spc 

lac (72355^ /lc,red, -. 

jda tys % 

jsp spc 

lac (flex pas 

jda tys 

■i,yo 

jsp spc 

law 1 / 1 

add pss 

jda tys 

law 3477 /black carret 

jda tys 

/punch input routine 

law i 1 
add pss 
add pch 
spq 
jmp rst 

pf2, law i 40 
jda fee 
lac inp 
spq 
jmp rst 

pi2, load pt6,dio 7751 

pi3> lac pt6 
jda pnb 
lac i pt6 
jda pnb 

index pt6, (dio 7776, pi3 
lac (jmp 7751 
jda pnb 
dzm inp 
jmp pf2 

spc. dap ,+^ 

cli 
tyo 

mp * 



/pseudo instruction terminate 

ter, lac mii 
spq-i 
jsp llf 
lac tlo 
dac loc 
clc 

dac asi 
law 1 
dac mii 
lac dm3 
dap psi 
jsp SCO 
jsp SCO 
jsp SCO 
jsp SCO 
lio sew 
jmp # +2 
ril Is 
isp sen 
jmp .-2 
dio i sc3 
jmp rst 
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/pseudo instruction define 
dfn, 



dfl, 



if2, 



lac 


mii 


spq 




jsp 


ilf 


law 


ilf 


dap 


qt 


dap 


ct 


law 


dfl 


dap 


tt 


law 


df2 


dap 


bt 


lio 


loc 


dio 


tlo 


dzm 


loc 


clc 




dac 


asi 


dac 


mdi 


idx 


mai 


dap 


dm3 


idx 


mai 


dap 


dml 


idx 


mai 


dap 


dm2 


sub 


low 


sma 




jmp 


see 


jmp 


rnw 


jsp 


sch 


jmp 


r 


jsp 


ilf 


jsp 


sch 


jmp 


itc 


jsp 


ilf 
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/define macro instruction 

dmi, lio sym 
dm3> dio . 

lio syn 
dml, dio . 

clc+clf 4-opr /liu 

elf 5 /syl 

dac mil 

dzm sym 

dzm sew 

law 1 

dac mdi 

lac psi 

dm2, dac . 

idx mai 

dap sc3 

law i 23 

dac sen 

init prs, pdl 

init dsk,. dsm+l 

init ddx, rsk 

init ct, pdl 

init tt, pds 

jmp r2 

/pick up dummy symbol 

pds, law rst /tab 

dap ddx 
lac chc 
spq 
jmp rst 

pdl, lac sym /comma 

jda per 
dac sym 

szf 5 /syl 

jmp pd2-l 
lac let 
sza i 
jmp pd2-l 

szf i 4 /liu 

jsp ids 

pd2, lio sym 
jmp dd+i 
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/search for dummy symbol 



sds, 







dap sdx 




dap sdy 




idx sdy 




init sdl,dsm 


sd2, 


lac sds 


sdl, 


sad xy 




jmp sd4 




index sdl, dsk, sd2 




lio sds 


Sdx, 


jmp xy 


sd4, 


lac sdl 




sub" (sad dsm-i 


sdy, 


jmp xy 


/define new dummy symbol 


dd, 


dap ddx 




dio i dsk 




idx dsk 




sad (sad dsm+nds-i 




jsp tmp 




sub (sad dsm 


ddx, 


jmp • 


/macro 


instruction constant 


mc, 


dap tea 




dzm num 




stf 6 




jsp ss 




jsp SCO 


, ;. 


jsp SCO 


mca, 


law smb 




jmp scz 


/macro 


instruction storage \ 


sw, 


jsp sen 




jmp rnw 




jsp evl 




sma+spi-skp 




jsp usm 


sw2, 


law rnw 


mw, 


dap tea 




idx ami 




idx loc 




law mca 




jmp ss 



/dsi 
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/dummy symbol assignment 

/llu 
/syl 



da, 


szf 


i 4 




Jsp 


ilf 




szf 


5 




jsp 


ipa 




lac 


sym 




jda 


per 




dac 


ten 




init bt,ilf 




dap 


qt 




dap 


ct 




init tt,dal 




jmp- 


rnw 


dal, 


jsp 


sch 




jmp 


rnw 




jsp 


evl 




sma+spi-skp 




jsp 


usd 


da3, 


lac 


ten 




jda 


sds 




jmp 


dab 




add 


(400000 


daa, 


jda 


mp 




jmp 


rst 


mp, 









dap 


mpx 




jsp 


ss 




jsp 


SCO 




jsp 


SCO 




jsp 


SCO 




jsp 


SCZ 




init tea, mpl 




jmp 


smb 


mpl, 


lac 


mp 




jda 


wro 


mpx, 


jmp 


xy 


dab, 


law 


daa 




jmp 


dd 



/if undef 
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/macro instruction usage 

mac, dap aw 

move dsk,dsl 

init bt,ilf 

dap qt 

dzm ten 

init tt,aev 

init ct,aei 

init ae6,rsk 

init ae4,dsv 

clear dsv,dsv+nds-l 

lac loc 

dac dsv 

lac mil 

sma 

jmp r2 

clear dss+l,dss+nds-l 
mal, jmp r2 

/evaluate macro instruction arguments 

aev, init ae6,am 
ael, jsp evl 

sma+spi-skp 

jsp usp 

ae3, idx ae4 

add (dss-dsv 

dap ae5 

sad (dio dss+nds-1 

jsp tmp 

lio wrd 
ae4, dio xy /dsv 

szf i 6 /dsi 

jmp ae5-l 

lac mil 

spq 

jmp ae7 

clc 
ae5, dac xy 
ae6, jmp xy 

ae7* cli 

jsp dd 
dac i ae5 
jda mp 

jmp ae6 



/assemble M-I into program 

am, lac pss 

dac def 

init prs,pdl 
ami, elf 6 * /dsi 

dzm wrd 
ami, law awm 

jda tc 

law as 

jda tc 

law ac 

jda tc 

law aa 

jda tc 
am5, lac dsl 

dap dsk 

jmp rst 

/assemble M-I storage word into progr. or mai 

awm, law aw3 



ar, 


dap ary 




law ar5 




jda tc 




law arl 


rw, 


dap rwx 


aw, 


lio xy 




idx aw 




dio t 




lac t 


rwx, 


jmp xy 


arl, 


jda ecL 


ar5, 


lio mii 


ary, 


jmp xy 


aw3, 


law ami 




spi 




jmp mw 




dap "bs 




jmp tb3 



/mai 
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/assemble argument (dummy symbol) into M-I word 



as, 



as8, 



as5, 
as6, 



as7, 



osp 


rro 




add 


(dsv- 


■1 


dap 


as5 




add 


(dss- 


(Jsv 


dap 


as8 




and 


(777000 


dac 


tc 




lio 


(cma 




sma 






lio 


(opr 




dio 


a so 




lio 


mil 




spi 


i 




jmp 


as5 




lac 


xy 




szm 






jmp 


as7 




lac 


xy 




XX 




/bi 


jda 


ed 




o m P 


ami 




xor 


tc 




jda 


pr 




lac 


i as8 




sas 


one 




jmp 


ami 




jmp 


as5 





/dss 
/dsv 



/assemble constant 



ac, 


Jsp 


ar 




law 


acl 




spi 






jmp 


mc 




jsp 


CO 




dac 


wrd 




law 


ami 


sv, 


dap 


svx 




jsp 


rro 




add 


(dsv-1 




dap 


svl 




lio 


wrd 


svl, 


dio 


xy 




sub 


(dsv-1 


svx, 


jmp 


xy 


acl, 


jsp 


rro 




jda 


cc 




jda 


wro 




jmp 


ami 


cc, 









dap 


ccx 




lac 


cc 




add 


(dss-1 




dap 


cc2 




spa 






jmp 


ccl 


cc5, 


cli 






jsp 


dd 


cc2, 


dac 


xy 


ccx, 


jmp 


xy 


ccl, 


lac 

spq 


i cc2 




jmp 


cc5 




add 


(400000 




jmp 


ccx 



/dss 
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/assemble assignment 

aa, jsp ar 
jsp sv 
lio mil 
spi i 
jmp ami 

szf i 6 /dsl 

jmp aal . 
jda cc 
jda mp 
jmp ami 

aal, add (dss-1 
dap aa2 
clc 

aa?, dac xy /dss 

jmp ami 

/write dummy symbol specification 

wsp, szf i 4 /liu 

jmp ev2 
lac (-200000 
xct sgn 
sub (-200000 
dac tl 
lac sym 
jda sds 
jsp uds 
add tl 
jda pr 
jmp evx 

/prepare dummy symbol specifications 

pr, . o 

lio pr 
prs, dio • 

dap prx 

idx prs 

sad fdio odl+ncd 

j sp tmp 

stf 6 /dsi 

prx, jmp xy 



/store dummy symbol specification 



ss, 


dap 


ssx . 1 






lac 


prs 






dap 


sst 






lac 


i Ipl 






dap 


prs 






sub 


one 






dap 


ssl 






jmp 


ss2 




ss3, 


jsp 


SCO 






Jsp 


scz 




ssl, 


lac 


xy 






jda 


wro 




ss2, 


index ss±,sst. 


ss3 


ssx, 


jmp 


xy 




sst, 


lac 


xy 




/store 


word in mai 




smb, 


lac 
sza 


wrd 






jmp 


sm7 






lac 


tea 






jmp 


scz 




smY, 


jsp 


SCO 






lio 


wrd 






lac 


tea 




sm, 


dap 


smx 






idx 


mai 






dio 


i mai 






lio 


pss 






spi 


i 






jmp 


sm2 






dac 


hih 






sad 


low 






jsp 


see 




sm2, 


cla 






smx, 


jmp 


• 





/pdl 
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/encode dummy symbol specification 

wro, 

dap wrx 
lio wro 
law i 7\ 
dac t3 

wrO, law wr2. 

spi 

jmp sco 

jmp scz 
wr2, rir Is 

isp t3 

jmp wrO 

wrx, jmp . 

/decode dummy symbol specification 

rro, dap rrx 
dzm t2 
setup t3,7 

rrO, law rrl 

jda tc 

law 100 
rrl, add t2 

rar is 

dac t2 

isp t3 

jmp rrO 

lac t2 

lio t2 

rrx, jmp xy 



/store code bit 

SCO, 

scz, 

scl, 

sc3, 



sc4, 



dap 


sex 


lac 


(400000 


jmp 


scl 


dap 


sex 


cla 




dac 


tc 


isp 


sen 


jmp 


sc4 


lac 


sew 


dac 


• 


lac 


tc 


ral 


Is 


dac 


sew 


jsp 


sm 


lac 


mai 


dap 


sc3 


lio 


i sc3 


setup sen, 22 


jmp 


scx-1 


lac 


tc 


ior 


sew 


ral 


Is 


dac 


sew 


cla 





sex, jmp xy 

/test code bit 

tc, 

dap tcx 

isp ten 

jmp tc3 

jsp rw 

setup ten, 22 

jmp tc5 

te3, lio tec 
ril Is 

tc5> dio tec 
cla 

spi 

tcx, jmp xy 

jmp i tc 

start 



Macro FIO-DEC part 3 

/set to pick up constant 
lp, 



lplf 
1P2, 
1P3, 
lp4, 



ttt, 
tct, 

tqt, 

tut 

uDo, 



jsp evl 




law 1 




jda pi 




sad (dio 


cv4+ncl 


jsp tmc 




lio prs 




dio xy 




lio wrd 




dio xy 




lio sgn 




dio xy 




lio def 




dio xy 




sas (dio 


> cv4+l 


jmp rsw 




move tt, 


ttt 


move ct, 


tct 


move qt, 


tqt 


move bt, 


tbt 


init tt, 


rp 


dap rt 




dap ct 




init qt, 


ilf 


dap bt 




jmp rsw 

























/save constant and reduce level 
rt, jmp xy 



rp, 


jsp 


evl 






lac 


mil"* 






spq 








jmp 


rp8 






Jsp 


CO 




rp5, •' 


xct 


i lp3 






add 


i lp2 






dac 


wrd 






law 


1 






dac 


def 






law 


i 1 






jda 


9 1 






sas 


(dio cv4 






jmp 


rp3 






move ttt,tt 






move tct,ct 






move tqt,qt 






move tbt,bt 






init rt,Ilf 






stf 


5 


/syl 


rp3, 


jsp 


rss 






lac 


t 






sad 


(55 


/right paren 




jmp 


r 






sas 


(77 






jmp 


r2 






jmp 


tt 




rp8,- 


jsp 


mc 






jsp 


dd 






jda 


wro 




lac (- 


-200000 








xct 


i 1P3 






sub 


(-200000 






add 


wro 






jda 


pr 






cla 








jmp 


rp5 




Pi. 











dap 


pix 






lac 


Pi 






add 


lpl 






dap 


lpl 






add 


( cv2-cvl 






dap 


lp2 






add 


( cv3-cv2 






dap 


lp3 






add 


( cv4-cv3 






dap lp4 




pix, 


jmp 


xy 





/constant table search 



CO, 


dap 


cox 




idx 


nca 




lac 


pss 




spq 


« 




jmp 


co8 




lac 


def 




spq 






Jsp 


use 




lac 


con 




dap 


co3 


jmp 


co4+l 




co2, 


lac 


wrd 


co3, 


sad 


xy 




jmp 


co6 


co4, 


index co3, nco, co2 




add 


one 




dac 


nco 




add 


(lac-sad+1 




dac 


hih 




sad 


low 




0*sp 


see 




lio 


wrd 




dio 


I co3 


co6, 


lac 


co3 




sub 


con 




add 


i cn6 




and 


(7777 


co8, 


dac 


num 


cox, 


jmp 


xy 



/cor table (first) 
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/pseudo-instruction constants 



ens 



en6, 



cn3, 

cn4, 
cn8, 



cn7, 
cn5, 



lac mii 
spq 

jsp ilf 
lac loc* 
dac xy 
dac tlo 
lac nca 
add ami 
dac ami 
lac pss 
spq 

0*mp cn5 
init bs,cn4 
lac con 
dap cn3 
jmp cn8 
lac xy 
dac wrd 
jmp tb4 

idx cn3 
add (sad-lac 
sas nco 
jmp cn3 
lac loc 
dac cr2 
lac tlo 
add nca 
dac wrd 
init bs,cnl 
jmp bal 



/cor table (first) 



/ami is "alarm location" 



/const, list 



/sto cor table (second) 



cnl, 



tmc, 



init bs,rnw 

move con, nco ' 

dzm nca 

idx cn6 

index cn7>(dac cr2+ncn,rnw 

error aim, alh, flex tmc 
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/pseudo- Instruction "dimension" 

dim, in it rt, di2 

init dtb+57, dil 
init ct, rsw 
init bt,«,ilf 
dap qt 

init tt, rst 
jmp rsw . 

dil, move sym, ten 
szf 5 

jsp ilf 
jmp rsw 

di2, jsp evl 
spi 

jsp usp 
move ten, sym 
move wrd, ten 
clc 

dac let 
jsp evl 
spa 

jmp di3 
spi 

jmp mdd 
lac vet 
add vel 
dac i ea 

di4, lac vet 
add ten 
dac vet 
jmp rsw 

di3, spi i 

jmp mdd 
dac t3 
jsp vsm 
jmp di4 

mdd, move sym, lus 

error alu, rsw, flex mdd 
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/pseudo- instruct ion variables 
var, 



vac, 



vaa, 



lac 


mii 


spa 




jmp 


ilf 


lac 


loc 


spa 




Jmp 


ilf 


lio 


vai 


spi 




jmp 


tmv 


load vai, 


lio 


pss 


spi 




jmp 


vaa 


sas 


vcl 


jmp 


vld 


lac 


vc2 


dac 


wrd 


jmp b5 


dac 


vcl 


add 


vet 


dac 


vc2 


lac 


ami 


add 


vet 


dac 


ami 


jmp 


vac 



-0 
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/read characters from . flexo "buffer 



rch, 


dap rcz 




isp fwd 




jmp rcl 


ro8, 


lio xy 




dio fwb 




idx rc8 




sub rf 3 




sza i 




jmp rc3 




sma 




jmp rfb 




law i 3 


rc4 P 


dac fwd 


rcl, 


lio fwb 




cla 




rcl 6s 




dio fwb 




dac t 




dac rep 


rcz, 


jmp xy 


rc3, 


lac nf c 




jmp rc4 



/fix list 



/refill buffer 



rep, 



/refill flexo "buffer 
rfb, 



rf5, 
rfl, 
rf2, 



add (1000 



rfa, 
rf3, 



rf4, 



rf6, 



HP, 



Init rc8 A flx 
dap rf 3 
law rf4+l 

dap rf 4 * 
setup nfc, 3 
rpa 
dio t 
rir 7s 
spi 

jmp rf 2 
sense 6 
jmp rfa 
lac t 
sza i 
.imp rf2 

dap .+2 
law 5252 

rar 
spa 
Jmp ilp 



/7th code=delete 



/check parity 



/fix list 



/stop code 

/car ret 
/.+! or rf6 



cla 

lio t 

rcr 6s 

lio xy 

rcl 6s 

dio i rf 3 

rcr 6s 

sad (130000 

jmp rf 6 

sad (770000 

jmp xy 

count nfc,rf2 

index rf 3, (lio flx+nfw-24,rfl 

law rf6 

jmp rf 5 

rcl 6s 
Isp nf c 
ril 6s 
isp nfc 
ril 6s 
dio i rf3 
law i 2 
sub nfc 
dac nfc 
idx rf 3 
jmp rc8 

law 7143 
jda tys 
law 4777 
jda tys 
init sov, rf2 
lio t 

hlt+clc-opr 
jmp rfa 



/pseudo-instructions octal, decimal, expunge and no input 



oct, 


lac 


(opr 




jmp 


dec+r 


dec, 


lac 


(add num 




dac 


nl 


de2, 


elf 


5 *• 




jmp 


r2 


noi, 


clc 






dac 


ini 




jmp 


de2 


xp, 


lio 


pss 




law 


low 




spi 






dap 


low 




jmp 


de2 


/ignore 


to tab 


or car r 


lub , 


3sp 


rsl 


itc, 


elf 


5 




dzm 


wrd 




Jsp 


rss 




lac 


rep 




jmp 


.+2 


iti, 


O'sp 


rch 




sad 


(36 




jmp 


itx 




sas 


(77 




jmp 


itl 


itx, 


jmp 


r2 



/syl 
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/feed subroutine 

fee, 

dap f ex 
cli 
ppa 

isp fee 
jmp .-2 

fex, jmp . 



/punch routine 
pnb, 



pnx. 



opt, 



opi, 



op3, 



opx, 
op2, 








lio 


pnb 


dap 


pnx 


lac 


loc 


ppb 




ril 


6s 


ppb 




ril 


6s 


ppb 




O'mp 

i"hT*oi 


• 

1+- -^ r\e* 





i, vXllC 


dap 


opx 


lio 


( 100000 


lac 


opt 


elf 




rcr 


9s 


rcr 


6s 


sza 




jmp 


op2 


law 


20 


swap 


szf 


1 


tyo 




sad 


(10000 


stf 


1 


ell 




sas 


( 100000 


jmp 


opl 


jmp 


xy 


stf 


i 


jmp op3 
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/type subroutine 



tys, xx 




dap 


tyx 


law 


1 3 


dac 


opt 


tyl , lac 


tys 


and 


(770000 


sza 


i 


jmp 


tyc 


rcl 


6s 


tyo 




tyc, lac 


tys 


ral 


6s 


dac 


tys 


isp 


opt 


jmp 


tyl 


tyx, jmp 


• 


/tab typer 




tb, dap 


.+3 


law 


char r 


jda tys 


jrnp 


• 


/permute zone bits 


per, 




dap 


pex 


lac 


per 


cli 




rcr 


6s 


sza 




jmp 


.-2 


dio 


per 


lac 


per 


and 


(202020 


ral 


Is 


xor 


per 


xor 


(400000 



pex, jmp 



/tab 
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/error print routines. 

ust, error alu, tb3> flex usw 

usb, error alu, b5> flex usl 

usq, error alu, rst, flex usp 

uss, error alu, s2, flex uss 

usm, jda alu 
flex usm 

use, jda alu 
flex use 

usr, error alu, rst, flex usr 

usp, Jda alu 
flex us a 

usd, Jda alu 
flex usd 

uds, dio lus 

error alu, evx, flex uds 

il, error aim, r, flex ich 

ilf, error aim, itt, flex ilf 

ipi, error aim, itc, flex ipi 

mdt, move sym,lus 

error alu, rnw, flex mdt 

mdm, error aim, dmi, flex mdm 

ipa, error aim, itt, flex ipa 

ids, dzm sym 
jda aim 
flex ids 

ils, error aim, alh, flex ils 

see, error aim, alh, flex see 

tmp, error aim, alh, flex tmp 

vld, error aim, rnw, flex vld 

tmv, error aim, rnw, flex tmv 



/error print routine 



alia, 







move alu,alm 




jmp alb 


aim, 







dzm lus 


alb, 


dap .+3. 




lac aim 




dap sov 




lac xy 




jda tys 




jsp tb 




lac loc 


spa 






jmp all 




jda opt 




jmp al2 


all, 


lac (flex ind 




jda tys 


al2, 


jsp tb 




lac asi 




' spa 




jmp al6 




lac asm 




jda per 




jda tys 




lac ami 




sza i 




jmp al6 




lio ami 




lac (flex + 




spi 


law char 


r- 




jda tys 




lac ami 




spa 




cma 




jda opt 


pi & 


lac api 




sza i 




jmp al9 



&Y[, jsp tb 

lac api 
jda tys 
lac syn 
jda tys 
lac l.us 
sza 1 
jmp al8 

als, jsp tb 
lac lus 
jda per 
jda tys 

al8, law 77 /c.r. 

jda tys 
lat 

rar Is 
lio (-0 - 
sma 

alh, clc+hlt-opr 
dio pch 
jmp sov 

al9> lac lus 

sza zl 

jmp al8 

jsp tb 

jmp als 



/title punch table 



ftp, 




004277 

625151 

224145 

141211 

274545 

364545 

010171 

324545 

065151 













364i4i 

000077 

224545 

010177 

374040 

073060 

376014 

412214 

010274 

6l5l4i 



I4i4l4 











204o4o 

771014 

774o4o 

770214 

770214 

364i4l 

771111 
364151 

771111 





101010 

oooo4i 

101074 

001422 


761111 

774545 

364i4i 
774-141 
774545 

364151 
771010 
004177 
010300 
000060 
030200 





4ooooo 

5i46oo 

453200 

771000 

453100 

453000 

050300 

453200 

513600 













413600 

000000 

453000 

010100 

403700 

300700 

603700 

224100 

020100 

454300 



141400 











403700 

224100 
404000 
027700 
207^00 
413600 
110600 
215600 

3i46oo 


101000 

221400 
101000 

4ioooo 



117600 
453200 

412200 

413600 

4l4l00 
010100 

513000 
107700 

410000 

010300 
600000 
030200 



/space 

/ , 1 

/? 

/3 
/5 

f 

/9 



/zero 

// 

/s 

/w 
/x 

/z 

/- 



/m 



+ 
/( 

/a 

/close quotes 

/• 

/open quotes 



/indicators and- variable storage 



vai, 

vcl, 

vc2, 

vet 

ovb 

pss 

npa 

pen 

inp 

tit 

psa 

psb 

ini 

hih 

nfc 

lus 

fwd 

fwb 

wrd 

num 

sym 

def 

chc 

let 

api 

asi 

asm 

ami 

nsm 

asa 

amn 

con 

nco 

nca 

tlo 

mil 

mdi 

syn 

tea 

sen 

sew 

ten 

tec 

dsk 

dsl 



^ > 

t2, 













- 











































































sad xy 








/variables pseudo-instruction indicator 
/beginning of variables 
/end of variables 
/variables counter 
% /overbar indicator, 1= on, 0= off 
/-0 = pass 1, +1 =pass 2 
/-0 = begin pass, +1 - continue pass 
/-0 = do not punch, +1 = punh if pass 2 
/-0 = suppress input routine, +1 = punch input routine 
/-0 = suppress title, +1 = punch title 
/end of psuedo- instruction list) at beginning 
/end of macro- instruct ion list ) of pass 1 
/aux. input routine indicator 

/upper limit of macro instruction and constant .list 
/test word for end of flexo word list 
/last undefined symbol 
/flexo word from input tape 
/flexo word from list 
/partial sum of . syllables of word 
/number = value of syllable, 
/symbol = flexo word for symbol. 
/-G = indefinite word, +1 = definite 
/character count of characters in syllable 
/0 = no letters in syllable, -0 = at least one letter 
/last psuedo- instruct ion for error stop 
/relative location«+0 = yes, -i = no 
/alarm symbol for relative location * 
/location relative to above symbol (asm) 
/(for establishing above symbolic relative 
/(location from location 
/(assignment 

/current address in constant list 
/number of distinct constant values 
/number of constant syllables 
/temporary for current location 
/macro instruction mode indicator 
/define indicator 
/second three characs of M-I name 
/temporary subroutine exit address 
/(temporaries 
/(for code 
/(word 

/(subroutines 
/dummy symbol count 
/temporary for dum sym count 



ti, 
t3, 



0* 




/temporary 
/registers 
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constants 

/pseudo instruction list and macro names and definitions 

psi/ law npi-3 

mai/ lac npi-^i 





text 


.repeat. 


rpt 




text 


.charac. 


ch 




text 


.fie xo. 


fx 




text 


.tex t. 


txt 




text 


.sta rt. 


sta 




text 


.termin. 


ter 




text 


.define. 


dfn 




text 


.consta. 


ens 




text 


.oct al. 


oct 




text 


.decima. 


dec 




-text 


.noinpu. 


noi 




text 


.expung. 


xp 




text 


.variab. 


var 




text 


.dimens. 


dim 


npi, 








dss/ 


1 






dsm/ 


110000 




cvl/ 


pdl 






low/ 


lac low 






start 


■ ps5 


- 
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SYMBOL PACKAGE - macro fio-dec 

/MACRO P SYMBO PUNCH* 10-27-61 

fix/ 

lsb, 

law i 20 
Is, 



ls2, 
ls3, 



sps, 



mps 



elf 


5 


senses 1001 


jmp 


7751 


jda 


fee 


listen 


swap 


senses 1001 


jmp 


7751 


sad 


(77 


jmp 


ls3 


sas 


(36 


jmp 


ptl-5 


listen 


swap 


senses 1001 


jmp 


J751 


lie 


(jmp sps 


sad 


(char rm 


lio 


(jmp mps 


sad 


(char rs 


stf 


5 


dio 


sps-1 


lio 


is3+2 


dio 


.-2 


sas 


(77 


jmp 


ls2 


law 


i 40 


jda 


fee 


lac 


end-1 


jda pnb 


law 


i 40 


jda 


fee 


XX 




lac 


low 


dap 


"bpp 


law 


low+1 


jda 


end 


szf 


5 


jmp 


pse 


law 


i 40 


jda 


fee 


law 


psi 


dap 


bpp 


add 


(2 


,jda 


end 


in it bpp,npi 


lac 


mai 


add 


( law-lao+1 


sad 


.-4 





jmp pse 




dap end 




jsp pst 


pse, 


law i 3.0 




jda fee* 




lac (jmp ps5 




jda pnb 




law i 240 




jda fee 




jmp 7751 


end. 





pst, 


dap psx 




elf 4 


bpp, 


law xy 


psr, 


dac org 




dap sor 




and (-77 
add (100 






dac loc 




law pbf 




dap .+2 


psu, 


lac i sor 




dac . 




idx .-1 




dap ts 




idx sor 




sad end 




jmp .+4 




sad loc 




jmp psc 




jmp psu 




dac loc 




stf 4 


pcb, 


jmp psc 
szf 4 




psx, 


jmp xy 




lac loc 




jmp psr 


psc* 


senses 1001 




jmp 7751 




jmp pum-6 


sor, 


xy 


constants 




bnp/ 


jmp pcb+1 


Ptl/ 


jmp ptl+4 


pt6-l/ 


jmp Is 




start lsb 



Q9 



RESTORI 



bnp/ 


lac 


wrd 


Ptl/ 


lio 


t 


pt6-l/ 


jmp 


ptl 


/Text printer 




Pbf/ 






txp, 









dap 


txu 


txu, 


lio 


• 




ril 


6s 




tyo 






ril 


6s 




tyo 






ril 


6s 




tyo 






idx 


txu 




sub 


(lio 




sas 


txp 




jmp 


txu 




jmp 


i txp 



constants 



/init. sym. val 
1st, 



flex 


Is 


1 


flex 


2s 


3 


flex 


3s 


7 


flex 


4s 


17 


flex 


5s 


37 


flex 


6s 


77 


flex 


7s 


177 


flex 


8s 


377 


flex 


9s 


777 


char 


11 


10000 


flex 


and 


020000 


flex 


ior 


040000 


flex 


xor 


060000 


flex 


xct 


100000 


flex 


Jfd 


120000 


flex 


eal 


160000 


flex 


jda 


170000 


flex 


lac 


200000 


flex 


lio 


220000 


flex 


dac 


240000 


flex 


dap 


260000 


flex 


dip 


300000 


flex 


dio 


320000 


flex 


dzm 


34oooo 


flex 


add 


400000 


flex 


sub 


420000 


flex 


idx 


44oooo 


flex 


isp 


460000 


flex 


sad 


500000 


flex 


sas 


520000 


flex 


mus 


540000 


flex 


dis 


560000 


flex 


Jmp 


600000 


flex 


Jsp 


620000 


flex 


skp 


640000 


flex 


szf 


640000 


flex 


szs 


640000 


flex 


sza 


640100 


flex 


spa 


640200 


flex 


sma 


64o4oo 


flex 


szo 


64iooo 


flex 


spi 


642000 



CM 



flex ral 661000 

flex ril 662000 

flex rel 663000 

flex sal " 665000 

flex sil 666000 

flex scl 667000 

flex rar* 671000 

flex rir 672000 

flex rcr 673000 

flex sar 675000 

flex sir 676OOO 

flex scr 677000 

flex law 700000 

flex iot 720000 

flex tyi 720004 

flex rrb 720030 

flex cks 720033 

flex Ism 720054 

flex esm 720055 

flex cdf 720074 

flex cfd 720074 

flex rpa 730001 

flex rpb 730002 

flex tyo 730003 

flex ppa 730005 

flex ppb 730006 

flex dpy 730007 

flex elf 76OOOO 

flex nop 760000 

flex opr 760000 

flex stf 76OOIO 

flex cla 760200 

flex hit 760400 

flex xx 760400 

flex cma 761000 

flex clc 761200 

flex lat 762200 

flex cli 764000 

iyi, -0 -0 



/CONSTANTS PRINTER 

ye, szs I 30 
szs 20 

jmp ych 
jmp 7751 

ych, lac cn7 

sad (dac cr2 

jmp 7751 

dap yet 

law yc2 

jda txp 

357774 /red, c.r., u.c. 

637246 /c, I.e., o 

text .nstants area. 

yc2, lac pss 

spa 

jmp yc3 

law yc4 

jda txp 

text /, inclusive 
from t/ char lo+3477 

yc4, stf 5 
yc7, 



ycr, 
ycu, 

yem, lac . /cor 






yc6, 



law 


cor 


dap 
law 


yem 
cr2 


dap 
sad 
jmp 


yen 
yet 
7751 


lac 


• 


spa 
jmp 
jda 
szf 


yep 

opt 
i 5 


jmp ycq . 
law 36 
jda tys 

~\ CST.T -1 A 


add 
jda 


• 

opt 


law 
jda 
idx 
idx 
jmp 


77 

tys 
yem 
yen 
ycu 


law vc6 
jda txp 
text / origi/ 


elf 

jmp 


5 
yc7 



/set to print 



yen, add . /cr2 

yeq, 
yck, , 



flex ns +34 77 



yet, add . 

yep, law yco 

jda txp' 

357145 /red, -i, n 

flex def 

char 1": +34*77 
yco, jmp yck 

constants 

start yc 



97 



ALPHA SYMBOL PRINTER 

yc/ 

yes, szs i 20 • 
jmp syx 
law ycl 

jda txp '. 

3577 , 

text /Defined Symbols ALPHA/ 

3477 
ycl, lac low 

sad .-1 

jmp syx 

dap yc8 

llo (77 

lot 4003 
ycy, law 1st 

dap yea 

yea, lac . /ist 

jda per 
yc8, sad . /symbol 
jmp ycb 
idx yea 
idx yea 
sas (lac Iyi 
jmp yea 
elf 5 

ycz, iot I 

szs i 20 

jmp syx 

lac i yc8 /symbol 

jda per 

jda tys 

jsp tb 

idx ye8 

lac i yc8 /value 

jda opt 

szf i 5 /set if print 

jmp ycl 

jsp tb 

lac i yea 

jda opt 
ycl, lio (77 

iot 4003 

jmp yev 
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yco, 



yoe, 
ycv, 



Idx 


yc8 


idx 


yea 


lac 


i yc8 


sad 


i yea 


O'mp 


yee. 


stf 


5 ' 


law 


i 1 


add 


yc8 


dac 


yc8 


jrnp 


ycz 


Idx 


yc8 


sas 


(sad low 


jmp 


yey 


lot 


I 


szs 


i 30 




7751 



/value 



syx. 



law syy 
jda txp 

357777 
text /Defined Symbols NUMERIC/ 

3477 
syy, jmp 7751 

constants 

start yes 



qc; 



NUMERIC SYMBOL PRINT 



sy, 


szs 


30 i 




jmp 


7751 




dzm 


t \ 




init sy3>ist 




init sy4,ist+l 




lio 


(77 




tyo- 


-4000 


sya, 


lac 


t 




dac 


tl 




clc 






dac 






lac 


low 




dap 


syb 




idx 


syb 


syb, 


lac 


xy 




lio 


i syb 




xor 


tl 




spa 






Jmp 


sq5 




sza 


i 




jmp 


syc 




xor 


tl 




sub 


tl 


sql, 


spa 






jmp 


syi 


sq2, 


lac 


t 




xor 


i syb 




spa 






jlup 


sq3 




j.ac 


i syb 




sub 


t 


sq4, 


spa 






dio 


t 


syi, 


idx 


syb 




idx 


syb 




sas 


(lac low+1 




jmp 


syb 




lac 


tl 




cma 






sza 






jmp 


sya 




lot 


i 




jmp 7751 


sq5, 


lac 


tl 




Jmp 


sql 



/value 



'100 



sq3> 
syc, 



syg, 

sy5, lac xy /ist value 



lac 


t 


Jmp 


sq4 


law 


i 1 


add 


syb. 


dap 


syz* 


lac 


xy 


xor 


i syb 


spa 




Jmp 


sy5 


sza 


i 


Jmp 


syf 


lac 


i syb 


sub 


i sy4 


spa 




Jmp 


syp 


Idx 


sy4 


dap 


sy3 


idx 


sy4 


Jmp 


syg 


lac 


i sy4 


Jmp 


syi 


lot 


i 


szs 


i 30 


Jmp 


7751 


lac 


xy 


Jda 


per 


Jda 


tys 


Jsp 


tb 


lac 


i syb 


Jda 


opt 


lio 


(77 


tyo- 


-4000 


Jmp 


syi 


lac 


xy 


Jda 


per 


sas 


i syz 


Jmp 


syp 


idx 


sy4 


dap 


sy3 


idx 


sy4 


Jmp 


syi 


constants 


start sy 



syi, 
syd, 

sy5, 
syp, 
syz, lac xy /mai symbol 



syf, 

sy3, lac xy /ist table 
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/restore macro 

dsm/ 

rm, szs 40 i 

jmp 7751 



load m&i,lac npi-1 
load p$i,lg.w npi-3 
load low, lac low 
init rm2,ist-2 



rm4, idx rm2 
Idx rm2 
add (l 
dap rm3 

rm2, lac xy 
sad iyi 
O'mp 7751 
. jda per 
dac sym 

rm3, lac xy 
dac t3 
Jsp vsm 
jmp rm4 

constants 

start rm 



.02 



/final "where to go routine" 

dsm/ 110000 /permuted char lr 



dss/ 
cvl/ 



110000 


szs 


40 


jmp 


ps5 


lac 


pss 


sma-t-szf "6-skp 


jmp. 


so 


sma 




Jmp 


s4 


szf 


6 


Jnip 


1st 


jmp 


s5 


1 




pdl 




start dsm+1 
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APPENDIX 2 



MACRO INSTRUCTION EXAMPLE 



105 
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Appendix 2* Macro Instruction-Example 

The sample program on the next page is analyzed in 
detail to illustrate most of the features of the macro 
processor. We illustrate first how a programmer might analyze 
the macros. Each successive level of macro expansion is 
indented one column from its predecessor. 

On the next page is listed an English transliteration 
of the macro structure from MACRO 1 s point of view. Internal 
dummy symbol numbers correspond to the letters used as shown 
by the chart below. The most important changes to the dss table 
are shown also, but the reader should remember that any dummy 
symbol parameter assignment will in general alter the dss 
table. Note particularly how the extra argument of second 
is lost. 

Finally there is an octal and binary dump of the mai 
table for these macros. The octal numbers are in the left hand 
column, and on the right appear the binary forms of the same 
numbers divided off according to their significance. Numbers 
in parentheses are value words associated with the zero-nonzero 
indicator bits immediately preceding them. Periods represent 
word boundarys, and semicolons represent statement boundarys. 
Each statement corresponds precisely with one entry in the mai 
table as listed on the preceding page. The pseudo-instruction 
data is shown also. 

Table of Dummy Symbols 



1 


R 


2 


A 


3 


B 


4 


C 


5 


D 


6 


E 


7 


F 


10 


G 


11 


H 


12 


J 


13 


K 


14 


L 



Sample programs June, 1962, RAS. 



define first A, B, C 
law A 
add B 
dac C 
term 

define second X, Y 
Z=105 - 
dac Z 
X=X+(Y 

first 1, (X, X+X 
lac Z 
Z=X 
add Z 
term 

define third J, K 

second 100, J+(K+200, K 
term 



a, 




first a, b, c 
second 1, 2 
third 10000, (40000 
dac d 

hit 


b, 







c, 







d, 







const 






start 


a 
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Expansion of Sample Program 

Source tape Intermediate results 

a, first 4, 25, 26 



Word 



law 4 
add 25 
dac 26 



Location 



4 

5^ 
6 



Dnd 1, 2 




z=105 




dac z 




x=l+(2) 




x=l+30 




x=3l 




first 1, 


(31), 62 


first 1, 


31* 62 



dac 105 7 



lac z 
z=oc 

z=3l 
add z 



law 1 
add 31 
dac 62 

lac 105 



add 31 



third 10000, (40000) 
third 10000, 32 

second 100, l0000+(32+200), 32 
second 100, 10000+33, 32 
second 100, 10033, 32 
z=i05 
dac z dac 105 

x=!00+( 10033) 

x=l00+34 

x=l34 

first 1, (134), 270 

first 1, 35, 270 

law 1 
add 35 
dac 270 



lac z 
z=x 
z=l34 
add z 





aac 




hit 


b, 





c, 





d, 






const 



10 
11 
12 

13 
14 



15 



16 

17 
20 



lac 105 21 



add 134 22 



dac 27 


23 


hit 


24 





25 





26 





27 


2 


30 


31 


31 


40000 ' 


32 


232 


33 


10033 ' 


34 


134 


35 



Sample Program Macros as Seen by MACRO 
English input Read from mai 



Stored into mai 



define 

term 
define 



zerm 
define 



first A,.B, C 
law A 
add B 
dac C 



second A, B 
C=105 
dac C 
A=A+(B) 



first 1, (A), A+A 



A+700000 
B+400000 
C+240000 



lac C 
C=A 
add C 



third A, B 

second 100, A+(B+200), B 



A+700000 
B+40000Q 
C+240000 



C=105 

C+240000 ■ 
D=(B+0) 
A=A+D+0 

sets dss [2] to 
E=(A+0) 
F=E+0 

sets dss [3] to 7 [F] 
G=A+A+0 

sets £ss[4] to 10 [G] 

700001 

F+400000 

G+240000 

C+200000 

C=A+0 

C+400000 



sets dss[2] to 







C=(B+200) 






D=A+C+0 




sets 


dss[3] to 5 [D] 
S=B+0 




sets 


dss[4] to 6 [E] 


C=105 


sets 


dss[4] to 


C+240000 




240105 


D=(B+0) 




F=(D+0) 


A=A+D+0 




G=F+-00 




sets 


dss[2] to 10 [G] 


E=(A+0) 




H=G+0 


F=E+0 




J=H+0 


G=A+A+0 




K=G+G+0 


700001 




700001 


F+400000 




J+400000 


G+240000 




K+240000 


C+200000 




200105 


C=A+0 




L=G+0 


C+400000 




L+400000 



term 



Octal and Binary Dump of mal Table 



667151 
002223 
705026 
420314 
700000 
060417 
400000 
240000 
400000 



FIRST 
fir 
st 

[pointer] 
io 0010000 1(700000)1 10 01100.00 *' 

l( 400000) 3 10 0001000 1(240000) 3 111.1/ 



226563 
464564 

705031 
721041 

105 
03i4i4 
240000 
242102 
243450 
210303 
043070 
704204 
207004 
'3i6060 
700001 
400000 

2i4i63 
240000 
200000 
041622 
102076 
400000 



SECOND 

sec 

ond 

[pointer] 

1110 1(105) 0001000 9 10 0001.000 

1(240000)3 10 0110000 110 0.(0) 

0i01000 3 10 0010000 10. 
oioiooo 1110 0(0) 101000. O3 
10 0010000 110 0(0) 0011. 000 3 
10 0011000 1110 0(0) 0.111000s 

10 0010000 10 0.010000 

1110 0(0) 0000100. s 

1(700001)3 10 0111000 l(400000)j 10 000.0100 



1(240000) j 10 0001000 1(200000) j 



1.0 0010000 1110 0(0) 10010. 00 3 

10 0001000 1(400000)? 1111/ 



237071 
005164 
705042 
460642 

200 
104102 
161211 
4i6o6o 
624307 
240105 
047072 

100 
044046 

111111 
605101 
101161 
506121 
700001 

400000 
464260 
240000 
200105 
234062 
061740 
400000 



THIRD 
thi 
rd 

[pointer] 
10 0110000 110 1(200) 00010. OO3 

10 0010000 10 00010.00 

1110 0(0 j 0101000s 10 01.10000 

1110 0(0) 0011000 5 

0. l( 240105) j 10 0101000 110 0(0) 0111. 000 3 

10 0111000 1110 1(100) 0.000100 3 

10 0000100 110. 

0(0) 0100100 5 10 0100100 

1.110 0(0) 00101005 10 00001.00 

10 0000100 1110 0(0) Ol.lOlOOj 

1(700001)3 10 0010100 1. (400000) s 



10 0110100 1(240000)3 1(200105)5 



10 000.0100 1110 0(0) OOOHOO3 
10. ooonoo 1(400000)3 1111/ 



extended pdp-1 ops and macros, jan 1962 

lap=cla 100 
ioh=iot 1 
clo=65l600 
spq=650500 
szm=640500 



define 



sensewitch A 
repeat 3# A*A+A 
szs A 
term 



define 



initialize A, B 
law B 
dap A 
term 



define 



define 



define 



define 



define 



index A, B, C 

idx A 

sas B 

jmp C 

term 



listen 

cla+cli+clf 1-opr-opr 

szf 1 1 

jmp .-1 

tyi 

term 



swap 
rcl 9s 
rcl 9s 
term 



load A, B 
lio (B 
dio A 
term 



setup A, B 
law i B 
dac A 
term 



define 



count A, B 
lsp A 
jmp B 
term 
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define 

move A| B 
lio A 
dio B 
term 

define 

clear A, B 

init .+2, A 

dzm 

index •-!, (dzm B+l, .-1 

term 

start 
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F36P 



500-7/62 



